Re: [MacPerl-AnyPerl] Sorting a file list

At 12:37 am +0100 30/1/04, Eelco Alosery wrote:

>how do i combine this together

Like this, but now it's time for _you_ to do some footwork :-)


my $db = "/tmp/tmp";
my ($date, $s1, $s2);
open DB, $db;
for (<DB>) {
   s~^(..)-(..)-(....)(.+)~$3$2$1$4~;
   push @temp, $_ ;
}
for (sort @temp) {
   chomp;
   s~(....)(..)(..)(.+)~$3-$2-$1$4~;
   ($date, $s1, $s2) = split /\|/ ;
   $date and print "??? $date ??? $s1 ??? $s2 ??? $/" ;
}