Sorting files by date (in first line)

[Shannon Murdoch]

Hi all, 

I have a list of 40 or so files that need to be sorted into an array by
article date (found in first line of each file in the form DD-MM-YYYY).
I can't figure out how to go about it successfully... Can anyone help me out
please??

Thanks in advance!

Current method is as follows:


use Time::Local;

@list = glob("*.txt");   ## makes an array of files ending in .txt eg 03.txt

foreach $file (@list) {  ##find dates...
  open(FEEDBACK,"$file");
  while(<FEEDBACK>){
    chomp($_);
    @feedbackdate = split(/-/,$_);  ## eg @feedbackdate = ('07','02','1982')
    $epochseconds = timelocal(1, 1, 1, $feedbackdate[0], $feedbackdate[1]-1,
$feedbackdate[2]-1900);
    @feedbackdate = ();  ##empty the hash for next loop.
    $filelisthash{$file} = $epochseconds;
    last;
  }
  close(FEEDBACK);
} #end loop

@list = (); ##prepare the list array

foreach $file_num (sort { $a cmp $b } keys %filelisthash) {
    push(@list,$file_num);
}

print @list;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]