ejecutar un comando en perl

[j2tn]

Hola a todos

bueno mi pregunta es lo siguiente
estoy haciendo una aplicacion que administre un servidor de base de datos(postgres) desde un navegador.
y lo que quiero es ejecutar el comando de psql "\d" con perl(cgi).
y poder ver el resultado en el navegador.
es algo asi como el webmin que te muestra las tablas de una base de datos.

si alguien tiene una idea por favor ayudenme.

gracias

[monoswim]

Es como cualquier script, haces un formulario en donde le pides al usuario que diga lo que desea hacer, ese form está direccionado a tu script que se conecta al postgres y ejecuta el comando (seguramente con el módulo DBI) y le imprimes el resultado como desees, generando así la salida de tu script en formato html para el navegador...

Era eso lo que decías, mucho no te entendí, es que no se que es el comando \d

Saludos

[monoswim]

mira, si ese comando te devuelve todas las tablar deberías llamarlo desde un array,algo como esto:

Código:

my $dbh = DBI->connect("dbi:$db_driver:$db_name",$db_user,$db_pass);
my $sth = $dbh->prepare("DO('\d')");
$sth->execute();
if (@db_tablas = $sth->fetchrow_array()) {
     print "clientes: $db_registro[0] - nombre: $db_registro_[1] <br>\n";
}
$sth->finish();
$dbh->disconnect;

Ahí estoy usando el módulo DBI para conectarme, pero no se si el psotgresql soporta la instrucción do, como lo hace mysql, eso fijate en la documentación del postgres.

Prueba de colocar el \d con comillas simples para que perl no lo interprete...

Saludos