in reply to manipulating array
If you know that every element begins with the A19\d+ (or you only care about these lines) you can filter / clean the records with a grep. You can then pipe those (matched/cleaned) items to sort (via a Schwartzian Transform) using a quick (simple) by_date subroutine.
#!/usr/bin/perl use strict; use warnings; my @data = <DATA>; print "data\n"; print @data; my @sorted = # do a little transform map { join(' ', @$_) } # join sort { &by_date($a, $b) } # sort map { [ split / /, $_ ] } # split grep { s/^A\d+ // } # clean @data; print "sorted\n"; print @sorted; sub by_date { my($a_mon,$a_day,$a_year) = split m[/], $a->[1]; my($b_mon,$b_day,$b_year) = split m[/], $b->[1]; return ($a_year <=> $b_year or $a_mon <=> $b_mon or $a_day <=> $b_ +day); } __DATA__ A19234 hostname 06/08/07 moredata moredata A19284 hostname 07/09/07 moredata moredata A19384 hostname 06/06/06 moredata moredata A19234 hostname 07/08/07 moredata moredata A19284 hostname 07/09/07 moredata moredata A19384 hostname 06/09/07 moredata moredata A19234 hostname 07/06/06 moredata moredata A19284 hostname 07/09/07 moredata moredata A19384 hostname 06/09/07 moredata moredata
I know I could have saved some characters on the sort line, but this was more aesthetically pleasing to me.
Ivan Heffner
Sr. Software Engineer
WhitePages.com, Inc.
Sr. Software Engineer
WhitePages.com, Inc.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: manipulating array (TMTOWTDI!)
by ikegami (Patriarch) on Aug 23, 2007 at 20:44 UTC | |
The big point, too...
by chaggalag (Initiate) on Aug 24, 2007 at 07:59 UTC |
In Section
Seekers of Perl Wisdom