print INPUTFILE "\.";
    my $copySQL = "copy snapshot_$formName (name, value, collect_date,
+ omp_id)
                   from '$db_input'";
    $dbh->func("COPY snapshot_$formName (name, value, collect_date, om
+p_id) FROM '$db_input'",
                "putline")
[download]

If you already have the information inside perl here's an example. Be really careful to use only unix line endings - PostgreSQL's copy command is very particular about that.

# Start copying some data to PostgeSQL. Here, STDIN is relative to the
# script. So the PostgreSQL STDIN being mentioned is actually just the
# stuff being written over $dbh->func( ..., 'putline');
$dbh->func( 'COPY some_table FROM STDIN', 'putline' );

# Write whatever was read from $fh to PostgreSQL's COPY.
while ( <$fh> )
{
    chomp;
    $dbh->func( $_, 'putline' );
}

# Tell PostgreSQL that the COPY is over with.
$dbh->func( "\\.\n", 'putline' );
[download]

K, I have this now

   $dbh->func('COPY snapshot_$formName (name, value, collect_date, omp
+_id) from STDIN', 'putline');
    print "Started a line\n";
    foreach my $values (@form_out){
      #my $cmd = `rm -f $form_out`;
      my @values = split(/;/, $values);
      my @names = split(/ /, $ga->{'outputString'}{$formName});
      my $count = 0;
      $count = 0;
      foreach my $value (@values){
        chomp($value);
        if (!$names[$count]){
         print "$value element # $count does not exist in array\n";
        }
        my $name = $names[$count];
        chomp($name);
        $value =~ s/\s+/ / if $value;
        $value = 'Null' if (length($value) < '1');
        if ($value =~ /\w+/){
          $dbh->func("$name\t$value\t$date\t$ompId", 'putline');
        }else{
          $dbh->func("$name\tNull\t$date\t$ompId", 'putline');
        }
         $count++;
      }
    }
    $dbh->func( "\\.\n", 'putline' );
    print "ended that line\n";
[download]

And i am still not getting inserts at all into the DB. What is the way to see what errStr has on the DBH obj, i tried like it was a STH and it didn't work.


Tradez
"Never underestimate the predictability of stupidity"
- Bullet Tooth Tony, Snatch (2001)