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.
