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
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. |