Problem (Perl + PostgreSQL)

amit_28oct · 03-26-2004, 06:01 AM

I connected postgreSQL database with perl using code given below
But this code is working only from command prompt & when I am logged in to postgreSQL.
But I want to view the o/p in Netscape. I am using Apache 2.0.40 & Redhat9 OS. Pls make the required modification in code. or if I have to do some enviornment setting tell me.
I am typeing http: //localhost /cgi-bin/beers.pl in Netscape.
Code is as follows.

#!/usr/bin/perl
# beers.pl - my first perl data base script!
use DBI;
$dbh = DBI->connect('dbi:Pg:dbname=test', 'postgres', 'post');
$sth = $dbh->prepare("SELECT * from statename");
$rv = $sth->execute;
while (my @row_ary = $sth->fetchrow_array)
{print " $row_ary[0] $row_ary[1]\n";}
$sth->finish;
undef $sth;
$dbh->disconnect;
undef $dbh;

Regards
amit

bigearsbilly · 03-26-2004, 07:47 AM

this should get you going.

look at CGI in

www.perldoc.com

Code:

#!/usr/bin/perl 
# beers.pl - my first perl data base script!
use DBI;
use CGI qw( :standard );

print   header(),
        start_html("Beers.pl");

print hr;
print "<pre>\n";

     $dbh = DBI->connect('dbi:Pg:dbname=test', 'postgres', 'post');
       $sth = $dbh->prepare("SELECT * from statename");
        $rv = $sth->execute;
         while (my @row_ary = $sth->fetchrow_array)
        {print " $row_ary[0] $row_ary[1]\n";}
                         $sth->finish;
                         undef $sth;
                         $dbh->disconnect;
                         undef $dbh;

print "</pre>\n";
print end_html;

amit_28oct · 03-27-2004, 03:18 AM

I tried the code given by u. But when I tried to run it by http://localhost/cgi-bin/beers.pl I was unable to see any o/p in browser. but a single straight line was displayed at the line one of browser. Remember I am able to connect perl to Postgre only when I am on postgre prompt not from anywhere else.

waiting for reply
regards

bigearsbilly · 03-29-2004, 03:28 AM

look in /var/apache/logs/error_log
to see what's happening.
(this name may be wrong, from memory but it will be somewhere in /var)

do "tail -f /var/apache/logs/error_log", try the cgi
and see what the errors are.

billy

amit_28oct · 03-29-2004, 04:37 AM

Following is the file /var/log/httpd/error_log.
But I am not getting what to do now.

[Sun Mar 28 15:38:50 2004] [notice] Digest: generating secret for digest authentication ...
[Sun Mar 28 15:38:50 2004] [notice] Digest: done
[Sun Mar 28 15:38:51 2004] [notice] Apache/2.0.40 (Red Hat Linux) configured -- resuming normal operations
[Sun Mar 28 17:39:26 2004] [warn] child process 2205 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:26 2004] [warn] child process 2206 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:26 2004] [warn] child process 2207 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:26 2004] [warn] child process 2208 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:26 2004] [warn] child process 2209 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:26 2004] [warn] child process 2210 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:26 2004] [warn] child process 2211 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:26 2004] [warn] child process 2212 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:27 2004] [warn] child process 2205 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:27 2004] [warn] child process 2206 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:27 2004] [warn] child process 2207 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:27 2004] [warn] child process 2208 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:27 2004] [warn] child process 2209 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:27 2004] [warn] child process 2210 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:27 2004] [warn] child process 2211 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:27 2004] [warn] child process 2212 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:28 2004] [warn] child process 2205 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:28 2004] [warn] child process 2206 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:28 2004] [warn] child process 2207 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:28 2004] [warn] child process 2208 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:28 2004] [warn] child process 2209 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:28 2004] [warn] child process 2210 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:28 2004] [warn] child process 2211 still did not exit, sending a SIGTERM
[Sun Mar 28 17:39:28 2004] [warn] child process 2212 still did not exit, sending a SIGTERM
[Mon Mar 29 15:49:27 2004] [notice] Digest: generating secret for digest authentication ...
[Mon Mar 29 15:49:27 2004] [notice] Digest: done
[Mon Mar 29 15:49:28 2004] [notice] Apache/2.0.40 (Red Hat Linux) configured -- resuming normal operations
[Mon Mar 29 15:51:53 2004] [error] [client 127.0.0.1] Premature end of script headers: emp.pl