Help for this page

Select Code to Download

Select or download this

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

Select or download this

 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}
+);