Following up on the DBD::CSV suggestions by others this may get you started:
use strict; use warnings; use DBI; my $tmpFileName = 'temp'; open my $outFile, '>', $tmpFileName or die "Can't open $tmpFileName: $ +!\n"; print $outFile $_ for <DATA>; close $outFile; my $dbh = DBI->connect ("DBI:CSV:") or die "DBI connect failed: $DBI::errstr"; my $sth = $dbh->prepare ("SELECT * FROM temp ORDER BY Name, Score"); $sth->execute(); while (my $row = $sth->fetchrow_hashref) { print "@{$row}{'Name', 'Score', 'State'}\n"; } $sth->finish(); $dbh->disconnect(); __DATA__ Name,Score,State "001","67","CA" "2","67","CA" "12","63","FL" "1","72","IL" "1","32","AZ"
Prints:
1 32 AZ 001 67 CA 1 72 IL 2 67 CA 12 63 FL
In reply to Re: How do I sort a CSV file on multiple columns?
by GrandFather
in thread How do I sort a CSV file on multiple columns?
by mmittiga17
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |