Re: For loop Help


Just another Perl shrine
	PerlMonks

Re: For loop Help

by neniro (Priest)

on Apr 02, 2004 at 16:38 UTC ( [id://342026]=note: print w/replies, xml )

Need Help??

in reply to For loop Help

Okay, it is ugly, but it works:

#!/usr/bin/perl

use strict;
use warnings;

my %result;

while(<DATA>) {
  m#(\d{2})/(\d{2})/(\d{4})#;
  $result{$3. $2. $1} = $_;
};

my $highest = $result{(sort keys %result)[-1]};
print $highest, "\n";
exit;

__DATA__
Record 0: Coll 02/14/2003 Charles S.  2862.30 00000 ISSUE WWW
Record 1: Coll 03/17/2003 Peter C. 392.50 00000 ISSUE WWW
Record 2: Coll 07/25/2003 John K. 10.00 00000 ISSUE CCC
[download]