PostgreSQL con perl en el WEB (2)

Con el usuario que ejecuta Apache (puedes conocer quién es el usuario si revisas el archivo /etc/apache-perl/httpd.conf ) crea el directorio "pruebas" en el directorio raíz de apache, en mi caso el directorio raíz es /var/www de modo que el directorio queda en /var/www/pruebas. Busca está línea en el archivo /etc/apache-perl/httpd.conf:

ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/

Y cambiala por:

ScriptAlias /pruebas/ /var/www/pruebas/

Dos líneas abajo verás:

También cambia la ruta a /var/www/pruebas/.

Reinicia apache:

# /etc/init.d/apache-perl restart

Corta y pega las siguientes líneas y guardalo como /var/www/pruebas/usuarios.pl y con permisos 755.

#!/usr/bin/perl -w

# la opción -w arroja más advertencias útiles # $| = 1;
#prendo el autoflushing para que no guarde en el buffer

print "Content-Type: text/htmlnn" if $ENV{HTTP_USER_AGENT};
print "<html>n";
print "<head><title>Sample</title></head>n<body>n";
##Cargo las interfaces de postgresql use Pg;
use DBI;

my $dbname = 'DBTEST';

my $host = 'localhost';

my $username = 'postgres';

my $password = 'mipassword';

print "primera marca<br> n";

my $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host= $host;",$username,$password,{printError=> 1}) or die "Cant connect to postgreSQL: $DBI::errstr ($DBI::err)n";

print "Estoy conectado! <br> n";

my $query="SELECT * FROM tb_usuarios;";

$sth = $dbh->prepare($query);

$sth->execute;

print "<table align='center' border='1'> n";

while (@vetor = $sth->fetchrow) {

print "<TR>n";

Usuarios que han visto este tema también han visto...

- Jerarquía de Operaciones en Perl
- Variables locales en Perl
- ¿Cómo enviar emails usando Perl y Sendmail?
- Objetos en PERL 6
- Algunos trucos para programar en PERL

- Versión imprimible de este documento

- Enviar por e-mail este documento