Recuperar nombre de tablas

[developmx]

Hola a todos.

Estoy intentando hacer un script con perl, donde al principio el usuario introduce un nombre de una BD y en la siguiente pagina hace la conexion con dicha BD hasta aqui todo esta bien, pero ahora quiero que en un combobox (select)se cargue la lista de las tablas que contiene la BD, espero que puedan ayudarme, gracias

[developmx]

Investigando mas a fondo encontre la forma de hacerlo y hasta encontre como cargar todas las bases de datos de postgres, por si a alguien le sirve aqui esta el codigo:

#!/usr/bin/perl

use DBI;

# Cargamos las BD de postgres que hay en el sistema.
@db=DBI->data_sources(Pg);
foreach $base(@db)
{
($a,$b,$c)=split/:/,$base;
($ini,$fin)=split/=/,$c;
$base = $fin;
print $base;
}

#Conectamos con la BD que queremos ($base)
$db = DBI->connect("dbi:Pg:dbname=$base");

# Extraemos los nombres de las tablas
@names = $db->tables;
foreach $tabla(@names)
{
if ($tabla =~/public./)
{
($ini,$fin)=split/\./,$tabla;
$tabla=$fin;
print $tabla;
}
}

Basicamente eso es todo (aparentemente), solo hay que adaptarlo a nuestras necesidades.

Saludos desde México.