#!/usr/bin/perl print "Test of S.u.S.E. Linux 5.3 PostgreSQL access(DBD::Pg)\n"; use Pg; $con = Pg::connectdb("dbname=mypsqldb user=postgres"); $sql = "select * from mypsqltable"; $res = $con->exec($sql); $rownum = $res->ntuples; $colnum = $res->nfields; for($i=0;$i<$rownum;$i++){ for($j=0;$j<$colnum;$j++){ $coldata = $res->getvalue($i, $j); print " $coldata"; } print "\n"; }