connexion postgresql avec perl

Bonjour

Je cherche à me connecter à une base de données postgtresql avec perl et j'ai le message d'erreur suivant:

Couldn't connect to /tmp/.s.PGSQL.5432: at c:/Program Files/perl/site/lib/DBD/PgPP.pm line 124


Mon fichier contient le code suivant:

use strict;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $db = DBI -> connect("dbi:PgPP:dbname=test","postgres","monpassword") || die $DBI::errstr;

A noter que ça marche en php avec le code:
$connection = pg_pconnect("dbname=test user=postgres password=monpassword");


Merci d'avance

Je me demande s'il n'y a pas un module DBD::postgtresql ?

Tu as vérifié sur le CPAN ?

effectivement, il faut que tu installes le driver DBD::Pg

DBD::PgPP est le module pur perl pour se connecter à PostgreSQL (et là il a l'air de se mélanger les pinceau avec l'OS), as-tu essayé plutôt DBD::Pg (à installer avec "ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-Pg.ppd" par exemple) ?

--
Jedaï

Merci pour vos reponses.

En fait G installé perl avec activeperl, puis G installé DBD-PgPP avec perl package manager, car lui ne me propose pas l'install de DBD-Pg.
Du coup G telechargé DBD-Pg-1.49, mais l'install pour windows est fastidieuse:

Start with:
MS VC++.Net Standard Edition
MS VC++ Toolkit 2003...

que je n'ai pas, donc si G bien compris il faut que j'installe ces 2 logiciels avant d'installer le Pg.

Il n'y aurait pas une maniere plus simple d'installer Pg sur windows?

Oups excuses :oops: , j'avais pas vu:

ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-Pg.ppd

j'essaye et je reviens

Je viens de faire l'install (cool je caonnaissais pas)et elle s'est apparemment bien passée (6 files installed), j'ai redemarré mon serveur local mais maintenant je me trouve avec une "500 Internal Server Error", G pas de bol ou quoi?

Par contre si je remets dans mon code

connect("dbi:PgPP:

au lieu de

connect("dbi:Pg:

je retourne à l'erreur de départ

Couldn't connect to /tmp/.s.PGSQL.5432:

qui a effectivement l'air de croire que mon OS n'est pas windows.

A l'aide, et merci d'avance

Tu peux exécuter le script une bonne fois en ligne de commande (avec Pg) et nous dire ce que tu obtiens.

--
Jedaï

Merci Jedï, trop cool de m'aider.

J'ai executé le script en ligne de commande et ça ne m'a pas retourné d'erreur.
Du coup j'ai rajouté des lignes dans mon fichier test.pl qui est devenu:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

# !perl   use DBI;   my $db = DBI -> connect("dbi:Pg:dbname=test","postgres","pepe") || die $DBI::errstr;   $req = $db->prepare("Select * from test") ; $req->execute() ; while (($id,$nom,$age)= $req->fetchrow_array()) { print $id.’ | ’.$nom.’ | ’.$age."\n" ; } $db->disconnect() ;

---

je l'execute en ligne de commande et là ça me sort:

Unrecognized character \x92 at test.pl on line 11

j'ai alors tenté de changer les ' par des " dans ma ligne 11 qui est devenue:

print $id." | ".$nom." | ".$age."\n" ;

et là ça ne me sort rien du tout (je pars de C:\>perl test.pl et j'arrive à C:\>)

Je suis largué :(

merci de mettre ton code sous balise code pour la lisibilite.
(tu le selectionnes et clique sur #)

Merci

Il y a bien des trucs dans ta table test ?

Tu devrais tester la réussite de ton prepare() (encore qu'il a dû réussir, sinon tu aurais eu une erreur en essayant d'utiliser $req) et de ton execute().

--
Jedaï

(ok pour la lisibilité du code)

Oui ma table contient bien des enregistrements, j'ai fait un select en ligne de commande et c'est bon.

J'ai essayé de tester comme tu l'as dit (j'espere que ma syntaxe est bonne) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!perl   use DBI;   my $db = DBI -> connect("dbi:Pg:dbname=test","postgres","pepe") || die $DBI::errstr;   if($req = $db->prepare("select * from client")) { print "prepare ok \n"; }

---

mais ça ne me retourne rien. J'suis degouté.