[prev in list] [next in list] [prev in thread] [next in thread] 

List:       postgresql-general
Subject:    Re: [GENERAL] dumping fields from Perl
From:       Zak McGregor <zak () mighty ! co ! za>
Date:       2004-02-29 23:17:06
Message-ID: 20040301011706.12d5ad23.zak () mighty ! co ! za
[Download RAW message or body]

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
========================================================================

---------------------------(end of broadcast)---------------------------
TIP 1: subscribe and unsubscribe commands go to majordomo@postgresql.org
[prev in list] [next in list] [prev in thread] [next in thread]