# Re'cupe'ration de la liste des fichiers a` filtrer
opendir(DIRECTORY, "." ) or die "Echec ouverture du re'pertoire courant : $!";
my @files = grep /4X_ML.jb$/, readdir DIRECTORY;
closedir(DIRECTORY);
opendir(DIRECTORY, "." ) or die "Echec ouverture du re'pertoire courant : $!";
my @files2 = grep /filetodelete.txt$/, readdir DIRECTORY;
closedir(DIRECTORY);
# Pour chaque fichier, filtrer les lignes contenant "sarkozy"
foreach my $file ( @files )
{
foreach my $file2 ( @files2 )
{ open(IN, $file) or die "Echec ouverture du fichier $file : $!";
open(OUT,">${file}.tmp" ) or die "Echec ouverture du fichier ${file}.tmp : $!";
print OUT grep !/$files2/i, <IN>;
close(IN);
close(OUT);
rename "${file}.tmp", $file;
}} |