bonjour tout le monde,

j'ai un problème avec mon script, j'ai un fichier C:/ERASE.TXT contenant un nombre de fichiers:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
c:/F20081203.txt
%SystemRoot%/F20081023.txt
D:/Temp/F20090110.txt
..etc

je voudrai faire un script qui va parcourir C:/ERASE.TXT et effacer tous ces fichiers..sinon afficher un message "$fichier introuvable" si le fichier n'existe pas.

au final ça sera une chose du genre:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
c:/file1.txt effacer
d:/file2.txt introuvable
..etc
voici mon code qui ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#! perl
 
use strict; 
use warnings;
 
open my $file,"<","C:/erase.txt" or die "fichier introuvable";
 
while(my $line=<$file>)
{
  if(unlink($line) == 0) 
  {
    print "$line intouvable";
  }
  else
  {
    print "$line effacer";
  }
}
je suis sous Windows Xp

merci beaucoup