[Pgsql-ayuda] Perl y Postgres

[Gunnar Wolf]

> Te envio parte del c=F3digo que yo utilizo para realizar mis enlaces com =
perl y
> postgresql
>
> #!/usr/bin/perl
>
> use Pg;
>
> $conn =3D Pg::connectdb("dbname=3D'nombre_base_de_datos' user=3D'usuario'=
");
> die $conn->errorMessage unless PGRES_CONNECTION_OK eq $conn->status;
>
> $sql =3D "SELECT campo1,campo2 FROM tabla";
> $result =3D $conn->exec("$sql");
> die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
>
> si no se realiza la coneccion o el sql manda mensaje de error y se detien=
e

Yo soy partidario y te recomiendo fuertemente utilizar DBI con DBD::Pg en
vez de Pg. La principal ventaja es que DBI es un m=F3dulo independiente del
motor de base de datos que utilices, lo que te permite migrar mucho m=E1s
f=E1cilmente tus programas. Adem=E1s, me parece, tiene un desarrollo
mucho m=E1s activo que el m=F3dulo Pg. Y por si fuera poco y de pil=F3n, al=
go
m=E1s de facilidades para el manejo de tus datos. Lo mismo que haces ser=ED=
a:

#!/usr/bin/perl

use DBI;

$conn =3D DBI->connect("dbi:Pg:dbname=3Dnombre_base_de_datos","usuario", "p=
asswd") or die "No pude conectarme: $DBI::errstr";

$sql =3D "SELECT campo1,campo2 FROM tabla";
$result =3D $conn->selectall_arrayref($sql);

En fin... :)

------------------------------------------------------------
Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52)5623-1119
Desarrollo y Admon. de Sistemas en Red - FES Iztacala - UNAM
Departamento de Seguridad en Computo   -   DGSCA    -   UNAM
------------------------------------------------------------
Quidquid latine dictum sit, altum viditur.