example file Ответов: 0

Как я могу создать несколько подключений к базе данных с помощью Perl?

Я хочу создать несколько подключений к базе данных в одной подпрограмме .Как я могу это сделать?.Здесь я дважды использовал одно и то же соединение с двумя разными базами данных.Мне не совсем ясно, правильно ли это делать?Может ли кто-нибудь подсказать мне правильный способ подключения нескольких баз данных[le в одной подпрограмме?

Что я уже пробовал:

sub connect {	
		$host     = "devgam.spd.analog.com";
		$database = "r_bang_1m" ;
		$user     = "db_cad" ;
		$pw       = "Cad123";
		my $dsn = "DBI:mysql:host=$host";
		my $dbh = DBI->connect($dsn, $user, $pw) ||
		die "ERROR: can't connect to database server\n";
		return $dbh;
		$host     = "devgam.spd.analog.com";
		$database = "r_bang_current" ;
		$user     = "db_cad" ;
		$pw       = "Cad123";
		my $dsn = "DBI:mysql:host=$host";
		my $dbh = DBI->connect($dsn, $user, $pw) ||
		die "ERROR: can't connect to database server\n";
		return $dbh;}

Peter Leow

Он всегда будет возвращать первый $dbh. Если вы хотите получить второй, когда первый потерпит неудачу, используйте if else https://www.tutorialspoint.com/perl/perl_if_elsif_statement.htm.
Если вам действительно нужно несколько соединений, используйте разные процедуры, иначе как вы узнаете, к какому соединению это относится?

example file

Я чувствую, что if-elsif не будет подходящим для этого запроса.Потому что мы не знаем, сколько баз данных будет здесь.

example file

Даже я тоже думаю об этом .Но я не могу получить никаких идей

0 Ответов