Tableau(perl)

open NOUVEAU_FICHIER, "> tableau.txt"
  or die "E/S : $!\n";

print NOUVEAU_FICHIER "@tableau";
close NOUVEAU_FICHIER;

open NEWFILE, "> dates.txt"
  or die "E/S : $!\n";

print NEWFILE join("\n",@lm_tabDates)."\n";
close NEWFILE;

# je ferme le handle en écriture
# et j'ouvre un nouveau handle, en lecture cette fois

open READNEWFILE,"dates.txt"
  or die "E/S : $!\n";

while(<READNEWFILE>){
  next unless /(\d\d)-(\d\d)-(\d\d)/; # c'est juste un test
                                      #pour éviter les eventuelles
                                      # messages de warning
  my $ddmmyy = "$1$2$3";
  if ($ddmmyy lt "010708") {
    print"old file\n";
  }
}
close READNEWFILE;