hoe to connect postgres database thru perl

From: sudheer raghav <yelukur(at)yahoo(dot)com>
To: mhammonds(at)knowledgeinenergy(dot)com, pgsql-novice(at)postgresql(dot)org, dave(at)vanabel(dot)com, darold(at)neptune(dot)fr, bfd(at)att(dot)net
Subject: hoe to connect postgres database thru perl
Date: 2005-01-19 06:34:32
Message-ID: 20050119063432.21498.qmail@web30405.mail.mud.yahoo.com
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-novice

hi,
am new to Perl.
How to connect postgresql database with perl ? here
is the Perl code follows:
#!/usr/bin/perl
use CGI qw(:standard);
use DBI;
use strict;

print "Content-type: text/html\n\n";
use CGI::Carp qw/fatalsToBrowser/;
$query = new CGI;
print $query->header;

$dbh = DBI->connect("dbi:Pg:dbname=test", "postgres",
"", {AutoCommit => 1, Rais
eError => 1});

if($query->param("submit") eq "save") {
$sth = $dbh->prepare("SELECT ip_add from firewall
where $source_add ='10.0.0.10'");
} else {
print "error";
}

if(!defined($sth)) {
print "ERROR: Unable to execute database query:
$DBI::errstr\n";
exit;
}
$sth->execute;

$sth->finish;

print $query->start_html("FIREWALL");

print <<"EOF";
<HTML>
<BODY>
print "<center><H1>FIREWALL</H1></center>\n";
print "IP Adress:";
print $query->popup_menu(-name=>'IP Adress',

-Values=>['10.0.0.1','10.0.0.2','10.0.0.3','10.0.0.4',10.0.0.5,10.0.0.6],
);

print "Source IP Adress:";
print $query->textfield('numeric');
print "Destination IP Adress:";
print $query->textfield('Dest');
print $query->radio_group(-name=>'Disable Enable',
-Values=>['Disable','Enable'],
);

print "<P><center>$query->submit('Action','save');

print
$query->submit('Action','cancel')</center></P>";
</BODY>
</HTML>
EOF
print $query->end_html;
$dbh->disconnect;
exit(0);

=====
Y.SUDHEER RAGHAV+919440521140


__________________________________
Do you Yahoo!?
Yahoo! Mail - 250MB free storage. Do more. Manage less.
http://info.mail.yahoo.com/mail_250

Responses

Browse pgsql-novice by date

  From Date Subject
Next Message Ramon Orticio 2005-01-19 09:11:03 reinstalled postgresql-8.0.0-rc5-2
Previous Message Michael Fuhr 2005-01-19 06:02:18 Re: dropdb command not working.