Postgresql et perl

De Avided.info
Aller à : navigation, rechercher
#!perl
use DBI;
my $db = DBI -> connect("dbi:Pg:dbname=NomBaseDeDonnee","NomUtilisateur","MotDePasse") || die $DBI::errstr;
$req = $db->prepare("Requette SQL ex: Select * from table");
$req->execute();
while (($id,$nom,$prenom)= $req->fetchrow_array())
{
print $id.' | '.$nom.' | '.$prenom."\n";
}
$db->disconnect();