Re^4: Formatting question??

Thanks for you lines of code.

I have modified my lines of code as follows:

 
     my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" });
  
   $csv->print (*STDOUT, $_read_sth->{NAME});


    while (my $row = $_read_sth->fetchall_arrayref)
   {
       ##Do I need the Dumper function here? as I am supposed to print
+ multiple resultsets and each has a different heading?
       
       $csv->print (*STDOUT, $row);  
}
[download]

But it is returning me the following error :

 Expected fields to be an array ref at /cluster/uapp/app/bin/mytest.pl
+ line 58.
##Line 58 is this one-->> "   $csv->print (*STDOUT, $_read_sth->{NAME}
+);
[download]

Comment on Re^4: Formatting question?? Select or Download Code

Replies are listed 'Best First'.
Re^5: Formatting question?? by Tux (Canon) on Apr 14, 2008 at 21:17 UTC
This took me a while, and brought me to some new dark corners of XS code :) No, you do not need Dumper. In fact, you should never need Dumper. Data::Dumper is for debugging, not for production code. But that aside. The code I showed you should have worked from the perl side of view. $sth->{NAME_lc} returns a reference to a list, but in this case, as it is a statement handle from DBI, it is not a plain reference, but a reference with magig attached, and Text::CSV_XS cannot deal with that (yet). So the solution might be: `$csv->print (STDOUT, [@{$sth->{NAME_lc}}]);` [download] Which dereferences the reference to a list, and puting it back in an anonymous array again. That line would deserve some comment in production code :) So, your final code should look like this: `my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" }); $csv->print (STDOUT, [@{$_read_sth->{NAME}}]); while (my $row = $_read_sth->fetchall_arrayref) { # If you need to add other headers ... $csv->print (STDOUT, [qw( some different header )]) if $needed; # print the data fetched $csv->print (STDOUT, $row); }` [download] Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]
Re^5: Formatting question?? by Tux (Canon) on Apr 16, 2008 at 07:10 UTC
I've now fixed this for the upcoming 0.42, which also accepts arra-refs with magic. Meanwhile, I learned that arra-refs with magig have some other magical behaviour too, so that: `$csv->print (STDOUT, \@{$sth->{NAME_lc}});` [download] also works. Personally I find this a bit counter-intuitive. The next release will support `$csv->print (STDOUT, $sth->{NAME_lc});` [download] If you can't wait for the official release, get it here. Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]