Sender: goran
Message-ID: <3842D7BB.8008988@kirra.net>
Date: Mon, 29 Nov 1999 20:44:59 +0100
From: Goran Thyni <goran@kirra.net>
Organization: kirra.net
MIME-Version: 1.0
To: The Hermit Hacker <scrappy@hub.org>
CC: pgsql-interfaces@postgreSQL.org
Subject: Re: [INTERFACES] DBI and 'COPY' ... possible?
References: <Pine.BSF.4.10.9911250055080.63896-100000@thelab.hub.org>
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

The Hermit Hacker wrote:
> 
> I've just checked the perldoc's on DBI and DBD::Pg, and can't see any way
> of doing this in perl that "jumps out at me"...has anyone gotten this to
> work, and how?

Marc,

No DBI-way I konow of,
but perl is the greatest glue language.

I did it like this, exemple below:

    open(FIL, "| psql $databas");
    print FIL "COPY x_kw FROM STDIN USING DELIMITERS '|';\n";
    foreach (sort keys %kw)
      {
        my $id = $kw{$_};
        /^(.+)\+(\w)$/;
        my ($kw,$kat) = ($1,$2);
        print FIL "$id|$kw|$kat\n";
      }
    close FIL;


best regards,
Göran Thyni

--------------------
On quiet nights you can hear Windows NT reboot!