$dbh->func( 'COPY snapshot_$formName ( name, value, collect_date, omp_
+id ) FROM STDIN',
            'putline' );
[download]

There are three problems with preceding line.

1. The first and most serious is that you used single quotes but appeared to expect $formName to interpolate into the string. Single quotes prevent this. You probably meant to use double quotes.
2. The second is that 'value' is just a really poor name for a value. Its like calling a variable $variable. Use descriptive names for variables and table attributes. Its part of writing maintainable code.
3. The 'name' name is typically a reserved word in SQL and you'll find that a lot of things play badly with schemas that use attributes of this name. I suggest you find something more appropriate like "collection_name."

   my $count = 0;
   for ( ... ) {
       ... $names[ $count ]
   
       $count++;
   }
   [download]

   It looks like somehow your indexes in @values are synchronized with the indexes in some @names list. When you manage the current index manually, you make it likely that it will be managed incorrectly. Let perl do this for you.

   foreach my $ix ( 0 .. $#names )
       my $value = $values[ $ix ];
       if ( ! $names[ $ix ] ) {
       }
   }
   [download]

   ---

   Now here's what I think a reasonable re-write of your code would look like. I didn't change the table attribute name so that's still present in its likely-buggy form.

   $formName = ...;
   @form_out = ...;
   $ga = { ... };
   $collect_date = ...;
   $omp_id = ...;
   my @value_names = split ' ', $ga->{ 'outputString'}{ $formName };
   chomp @value_names;
   my $table_name = "snapshot_$formName";
   
   $dbh->func( "COPY $table_name ( name, value, collect_date, omp_id ) FR
   +OM STDIN",
               "putline" );
   print "Started a line.\n";
   
   for my $packed_values ( @form_out )
   {
       my @values = split /:/, $packed_values;
       my @values_to_use_ix = grep $value_names[ $_ ],
                              0 .. $#value_names;
       for my $ix ( @values_to_use_ix )
       {
           my $value = $values[ $ix ];
           my $value_name = $value_names[ $ix ];
   
           $value = 'NULL' if not defined $value;
           $value =~ s/^\s+//;
           $value =~ s/\s+$//;
           # The following line will remove any internal tabs which would
   + mess with
           # the column count.
           $value =~ s/\s+/ /g;
           $value = 'NULL' if not length $value;
   
           my $row = join( "\t",
                           $value_name,
                           $value,
                           $collect_date,
                           $omp_id );
   
           eval { $dbh->func( $row, 'putline' ) }
               or die "Couldn't write `$row' to $table_name: $@, " . $dbh
   +->errstr;
       }
   }
   [download]

   ---

   In reply to Re^5: DBD::Pg copy issues by diotalevi
   in thread DBD::Pg copy issues by tradez

   Title:
   Use:  <p> text here (a paragraph) </p>
   and:  <code> code here </code>
   to format your post, it's "PerlMonks-approved HTML":
   
   
   
   

   ---

4. Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
5. Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
6. Read Where should I post X? if you're not absolutely sure you're posting in the right place.
7. Please read these before you post! —
   • How do I compose an effective node title?
   • How do I post a question effectively?
   • Markup in the Monastery
8. Posts may use any of the Perl Monks Approved HTML tags:

   a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

9. You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

   	For:		Use:
   	&		&
   	<		&lt;
   	>		&gt;
   	[		&#91;
   	]		&#93;

10. Link using PerlMonks shortcuts! What shortcuts can I use for linking?
11. See Writeup Formatting Tips and other pages linked from there for more info.