hoe to connect postgres database thru perl

Поиск
Список
Период
Сортировка
От sudheer raghav
Тема hoe to connect postgres database thru perl
Дата
Msg-id 20050119063432.21498.qmail@web30405.mail.mud.yahoo.com
обсуждение исходный текст
Ответы Re: hoe to connect postgres database thru perl
Список 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

В списке pgsql-novice по дате отправления: