Re: dumping fields from Perl

On Sun, 29 Feb 2004 13:11:48 -0600
Tony Rice <email(at)email(dot)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
========================================================================