This is an example program that shows how you can access MySql and Postgresql from within a perl program

#!/usr/bin/perl
############################################################
# This is an example of connecting to a MySQL database
# and a postgresql database using perl DBI
#
# This requires the DBI:mysql and DBI:Pg modules
#
############################################################
use DBI;
use strict;

my @row;
my $dbh;
my $sth;


# This is a mysql example displaying all rows from the user table
$dbh = DBI->connect('DBI:mysql:mysql:localhost', 'root', 'password');
$sth = $dbh->prepare(qq{ select * from user});
$sth->execute();
while(@row = $sth->fetchrow_array()){
    print "@rown";
}
# close the connection
$dbh->disconnect();



# This is a postgres example displaying all rows from the user table
$dbh = DBI->connect("dbi:Pg:dbname=test;port=5432;user=postgres;password=mypassword);
$sth = $dbh->prepare(qq{ select * from user_});
$sth->execute();
while(@row = $sth->fetchrow_array()){
    print "@rown";
}

$dbh->disconnect();

exit(0);

Only registered users can write comments.
Please login or register.

Powered by AkoComment 1.0 beta 2!