Listing 2-1 contains the complete and uninterrupted code from this chapter.
Listing 2-1: connect_multi.pl
01: #!/usr/bin/perl -w 02: # 03: # connect_multi.pl 04: # Chapter 2 05: # Listing 2 06: use strict; 07: use DBI; 08: my $dbh_m = DBI->connect("dBi:mysql:quizzer:dbserver.perlguy.net", "bookuser", "password") 09: or die("Cannot connect: $DBI::errstr\n"); 10: my $dbh_p = DBI->connect("dbi:Pg:dbname=test", "postgres","") 11: or die("Cannot connect: $DBI::errstr\n"); 12: my $sql = qq(select * from test_config); 13: my $sth_m = $dbh_m->prepare($sql); 14: my $sth_p = $dbh_p->prepare($sql); 15: $sth_m->execute; 16: $sth_p->execute; 17: while(my $p = $sth_m->fetch){ 18: print "MySQL: @$p\n"; 19: } 20: print "\n"; 21: while(my $p = $sth_p->fetch){ 22: print "PostGreSQL: @$p\n"; 23: } 24: $dbh_m->disconnect; 25: $dbh_p->disconnect;