in reply to How do I sort a CSV file on multiple columns?
here is some code I borrowed that would work. if I can figure out how to get rid of preceeding "00" in a column:
#!/usr/bin/perl my $sheet; my $count = -1; while( <DATA> ) { chomp; $count++; # skip header next unless $count; my $row; @$row = split( /,/, $_ ); push @$sheet, $row; } foreach my $row ( sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] } +@$sheet ) { print join( ',', @$row ), "\n"; } __DATA__ Name,Score,State "001","67","CA" "2","67","CA" "12","63","FL" "1","72","IL" "1","32","AZ"
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: How do I sort a CSV file on multiple columns?
by AnomalousMonk (Archbishop) on Dec 09, 2009 at 20:18 UTC | |
Re^2: How do I sort a CSV file on multiple columns?
by kennethk (Abbot) on Dec 09, 2009 at 20:29 UTC |
In Section
Seekers of Perl Wisdom