On 11-03-16 09:26 AM, Chris Stinemetz wrote:
I would like to print results in ascending order starting with $cell, $sect,
and finally $carr.
You would need to store the data in a large array, then sort it.
# untested due lack of data
my @array = ();
while (<>)
{
chomp;
if (/;/)
{
my @data = split /;/;
my($cell,$sect,$carr,$RTD) =
($data[31],$data[32],$data[38],$data[261]);
push @array, {
cell => $cell,
sect => $sect,
carr => $carr,
RTD => $RTD,
};
}
}
my @sorted = map { $_->[0] }
sort {
$a->[1] <=> $b->[1]
|| $a->[2] <=> $b->[2]
|| $a->[3] <=> $b->[3]
}
map { [ $_, $_->{cell}, $_->{sect}, $_->{carr} ]}
@array;
--
Just my 0.00000002 million dollars worth,
Shawn
Confusion is the first step of understanding.
Programming is as much about organization and communication
as it is about coding.
The secret to great software: Fail early & often.
Eliminate software piracy: use only FLOSS.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
