http://qs321.pair.com?node_id=654175


in reply to Re: Parsing a data file to find the highest value.
in thread Parsing a data file to find the highest value.

Why would you do a full sort just to find the maximum value?
  • Comment on Re^2: Parsing a data file to find the highest value.

Replies are listed 'Best First'.
Re^3: Parsing a data file to find the highest value.
by tcf03 (Deacon) on Nov 30, 2007 at 19:30 UTC
    Its just what I though of first. You could also do: 
    use strict;
use warnings;
use List::Util qw(max);

my %prns;

while (<DATA>)
{
    my ( $printer, $num, $cmd ) = split /:/;
    $prns{$num} = $printer;
}

print "Highest numbered printer is $prns{max (keys %prns) }\n";
__DATA__
M08_amvpss09_MEDIP :275:lp -damvpss09
M07_amvpss09_MEDIP :279:lp -damvpss09
M09_amvpss09_MEDIP :278:lp -damvpss09
M01_amvpss09_MEDIP :2:lp -damvpss09
M04_amvpss09_MEDIP :1000:lp -damvpss09

    [download]
    Something line FunkyMonk's suggestion would work as well.
    Ted
    --
    "That which we persist in doing becomes easier, not that the task itself has become easier, but that our ability to perform it has improved."
      --Ralph Waldo Emerson
[reply]
[d/l]

In Section Seekers of Perl Wisdom