On Sun, 29 Feb 2004 13:11:48 -0600
Tony Rice <email@email.com> wrote:
> How can I dump the field names and their type and attributes from Perl?
use Pg;
use strict;
use warnings;
my $select=<<"SQL";
SELECT c.relname, a.attname, t.typname, a.attrelid
FROM pg_class c, pg_attribute a, pg_type t
WHERE c.relkind = 'r'
AND a.attnum > 0
AND a.attrelid = c.oid and a.atttypid = t.oid
ORDER BY relname, attname
SQL
# Do connection here...
my $PG=new Pg::connectdb(".....");
my $res=$PG->exec($select);
etc.
Hope that helps. I may have typoed above, and it is untested, but it's something
to work with.
Ciao
Zak
--
========================================================================
http://www.carfolio.com/ Searchable database of 10 000+ car specs
========================================================================
