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;}
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)