🚀 go-pugleaf

Filip Byrski <byry@o7.mak.polsl.gliwice.pl> wrote:
: Piotr Piatkowski (kompas@galaxy.uci.agh.edu.pl) wrote:
: : Filip Byrski <byry@o7.mak.polsl.gliwice.pl> wrote:
: : : Jezeli ktos ma lub zna jakis adres to prosze o maila
: : 
: : perldoc pg

: Wlasciwie to chodzilo mi o jakies dodatkowe przyklady:

: z man-a:
: For examples of how to use this module, look at the file test.pl. 
: For further examples look at the Libpq applications in
:  ../src/test/examples and ../src/test/regress.

Ale ta biblioteka jest prosta jak budowa cepa... Zwykle używa się 
tego tak:

use Pg;

my $sql = new Pg::connectdb("dbname = zzz");
die "Postgress: " . $sql->errorMessage 
  if $sql->status != PGRES_CONNECTION_OK;

my $result = $sql->exec( "SELECT x, txt FROM test WHERE x > 5");

for my $i ( 0..$result->ntuples-1) {
  print $result->getvalues( $i, 0 ) . " = " . $result->getvalues( $i, 1 );
}

I w zasadzie do 90% zastosowań te funkcje wystarczą. Chyba że masz 
jakieś specjalne zapotrzebowania?

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND