#!/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
In reply to Re: For loop Help
by neniro
in thread For loop Help
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |