Untested.
my @data; foreach (<FILE>) { push @data, [split( /\|/, $_, 3 ) ]; } @data = sort { $a->[1] cmp $b->[1] } @data; foreach ( @data ) { my ( $id_number, $title, $date ) = @$_; print "ID: $id_numer\tTitle: $title\tDate: $date\n"; }
Cheers,
Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.
In reply to (Ovid) Re: Is this sort of possible
by Ovid
in thread Is this sort of possible
by Cosmos
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |