[sgbd] Probleme pour se connecter à PostgreSQL via PERL

Version imprimable

29/05/2002, 17h13
Frich

[sgbd] Probleme pour se connecter à PostgreSQL via PERL

j'ai installé sur une machine LINUX Red Hat 7.2 PostgreSQL

le systeme marche tres bien

je doit faire des scripts (ou plutot modifier) en PERL pôur que ceux-ci puisse acceder à cette base!!

je fais mes divers test sous une machine windows!!! donc je cherche des packages pour se connecter à la base de donnée postgres avec authentification...

j'ai déjà installé Persistence-Object-Postgres-1.24.tar.gz qui apparament permet de le faire!!

l'install m'a demander d'installer DBI.pm ce que j'ai fait

à mon avis ces packages sont installés parfaitement!!

mais je ne sais pas faire une connexion avec celà, car il n'y avais pas de petit fichier test.pl

si quelqu'un pouvais m'aider ca serai terrible, merci d'avance!!

ciao

salut

un petit exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
use DBI;
$base_nom = "mabase";
$base_serveur = "192.168...";
$base_port = "5432";
$base_user = "leUser";
$base_password = "lePassword";
$base_dsn = dbi:Pg:dbname=$base_nom;host=$base_serveur;port=$base_port";
 
my $dbh = "";
#on se connect à la base:
( $dbh = DBI->connect("$base_dsn", $base_user, $base_password, { AutoCommit => 1 }) ) or die "DBI->connect ............... not ok: ", $DBI::errstr;
 
my $curseur = $dbh->prepare("select monchamp1  from matable where valeur = ?"); 
my $mavaleur = 3;
$curseur->execute($mavaleur);
 
if ($dbh->errstr ne undef) {  # ERREUR EXECUTION SQL
  print STDERR "ça a foiré";
  exit;
}
 
my $res_curseur = "";
$res_curseur = $curseur->fetchall_arrayref({});	
 
$curseur->finish;
$dbh->disconnect;

$res_curseur étant une référence sur un tableau contenant des hach dont les clés sont les noms des champs ramenés par le select...
mais je te conseille un man DBI pour avoir des explications un peu meilleures.

30/05/2002, 08h54
Frich

merci merci bien!!!!!!