how to use perl to sort string?

[michael12]

I have a text file "test.txt":
----------
name age address
abc1 20 city1
abc2 15 city2
abc3 45 city3
abc4 19 city4
----------

How can I open this file, and print out the new one sorted by age? Thanks.

 

[flawless69]

try this:

open (IN, "file.name") or die "Can't open file.name: $!";
open (OUT, ">outfile.txt") or die "Can't open outfile: $!";

my %hash;

while ($line = <IN>)
{
   if ($line =~ /^[a-z0-9]+\s([0-9]+)\s[a-z0-9]+/)
   {
      $hash{$1}{line} = $line;
   }
   else
   {
      print OUT, $line;
   }
}

foreach $key (sort keys %hash)
{
   print OUT, $hash{$key}{line};
}

close OUT;
close IN;

--Derek

"Fear not the storm for this is where we grow strong."

 

[flawless69]

oops, get rid of the commas after OUT in the print statements. --Derek

"Fear not the storm for this is where we grow strong."