Here is a quick hack of a working example:

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbname = 'testdb';
my $server = 'localhost';
my $user   = 'user';
my $pass   = 'pass';

my $dbh = DBI->connect(
    "DBI:Pg:dbname=".$dbname.";host=".$server, $user, $pass );

# The \n at the end of each row is required
my @ArrayInMemory = (
    "1/value 12/value 13\n",
    "2/value 22/value 23\n",
    "3/value 32/value 33\n",
);

$dbh->do("COPY testcp (col1, col2, col3) FROM STDIN WITH DELIMITER '/'
+");

foreach my $row (@ArrayInMemory) {
    # Alternative if the array elements doesn't contain \n
    # $row .= "\n";

    $dbh->pg_putcopydata($row);
}

$dbh->pg_putcopyend();
[download]

Regards, Stefan

Many Thanks, Stefan!

In particular, thank you for pointing out the requirement for the newline character.

One of the things I love about Perl is having many ways to do the same thing. It can be frustrating for the inexperienced, but it can also be very rewarding.

If anyone has a working alternative to our foreach loop method, I would encourage you to share. I love seeing how different programmers approach a simple problem in different fashion.

my @ArrayInMemory = (
        [1, 'value 12', 'value 13'],
        [2, 'value 22', 'value 23'],
        [3, 'value 32', 'value 33'],
);

my $csv = Text::CSV->new ({ binary => 1, eol => $/ });

$dbh->do(q{COPY testcp (col1, col2, col3) FROM STDIN
                CSV});

foreach my $row (@ArrayInMemory) {
    $csv->combine(@$row) or die 'Error '.$csv->error_input;

    $dbh->pg_putcopydata($csv->string);
}

$dbh->pg_putcopyend();
[download]

James,

This is a very interesting approach and I had not considered the possibility. I am hoping you might provide a little insight into the the combine function. I am a little confused by the variable @$row in particular. $csv is a scalar, as is $row, however I believe $csv->combine is expecting an array. I would have guessed some work would have needed to be done to split the scalar into an array.

This is what happens when a T-SQL SPROC junky decides to break out of the safe bubble I had been in for years and learn some new tricks in an open environment!

Also, what situations would you recommend this method over the first example? I personally like the idea of processing it as a CSV due to the fact I built the arrays to mimic a delimited flat file, simply because it was an easy way to express my intended end result.

Thanks!

Sure, also be sure to check out perlreftut, perlref, perllol, perldata and perldsc for details on references. and their use in data structures.

@ArrayInMemory is what is called an AoA (array of arrays). In order to include an array inside another without it being converted into a single flat array, you make it an array reference (delimited by [ and ] instead of ( and )).

In the foreach loop $row gets assigned to an element in the @ArrayInMemory array. That element is an Array Reference, not the array which Text::CSV's combine method requires. Luckily we can 'dereference' an Array Reference back into an array by adding an @ to the beginning (@$row) indicating we are interested in the dererferenced array, not the array reference in $row.

The reason I would choose this method is that seems, to me, a natural fit, COPY FROM accepts CSV, Text::CSV produces it. This is especially helpful if your data potentially contains data that would need to be escaped before being sent to COPY FROM, Test::CSV handles all the ugly details of that for you. The first solution assumes you already have a string for each row you are submitting to Pg, which is difficult for me to imagine being the case, you are more likely to have a collection of fields (in an AoA or similar structure) which you need to combine. Instead of joining them yourself and worrying about escaping rules (which are different between Perl, Pg and CSV), use a well-tested and recommended module instead.

Keep in mind that you can also directly pipe data to postgres' COPY via psql:

# for instance, a program producing tab-delimited output:
perl my_tsv.pl | psql -d dbname -c "copy mytable from stdin csv delimi
+ter E'\t'"
[download]

# or if the data is in a tsv file already:
< data.tsv psql -d dbname -c "copy mytable from stdin csv delimiter E'
+\t'"
[download]