Help for this page
while ( my $line = $csv->getline($fh) ) { # Manipulation of unsorted fields during import my @multiline = join(';',@{$line}); ... if (not $csv->eof) { $csv->error_diag(); }
for my $line (@result) { my @fields = split(/;/,$line); ... print $fh "$_;" foreach @fields; print $fh "\n"; }
www.com | www.net | www.org
No recent polls found