如何使用Perl创建多个数据库连接？ [英] How do I can create multiple database connection using Perl?

问题描述

我想在单个子例程中创建多个数据库连接。我该怎么办？。我曾经两次使用相同的连接和两个不同的数据库。我不清楚这是否是正确的方法？可以有人建议我在单个子程序中连接多个[le数据库]的正确方法吗？



我尝试过的方法：

I want to create multiple database connection in the single subroutine .How can i do it?.Here i had used the same connection twice with two different databases.I am not clear whether is this is the right way to do?Can anyone suggest me the right way to connect multi[le databases in the single sub routine?

What I have tried:

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;}

推荐答案

host = devgam.spd.analog.com ;

host = "devgam.spd.analog.com";

数据库 = r_bang_1m;

database = "r_bang_1m" ;

user = db_cad;

user = "db_cad" ;

这篇关于如何使用Perl创建多个数据库连接？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！