Re^5: Help with converting Python script to Perl for CSV sort


Don't ask to ask, just ask
	PerlMonks

Re^5: Help with converting Python script to Perl for CSV sort

by poj (Abbot)

on Jan 31, 2017 at 18:56 UTC ( [id://1180712]=note: print w/replies, xml )

Need Help??

in reply to Re^4: Help with converting Python script to Perl for CSV sort
in thread Help with converting Python script to Perl for CSV sort

You are seeing the output of print Dumper \@sorted; which is a quick way of inspecting the contents of a data structure. Just replace that line with what you had originally.

#print Dumper \@sorted;
open my $fh_out,'>','output.csv' or die "$!";
foreach my $row ( @sorted ) {
  print $fh_out join( ',', @$row ), "\n";
}
close $fh_out;
[download]

poj