Discussion :

[saw-next]

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

[Philou67430]

Peux-tu préciser ce qui ne marche pas... ?

Sinon, deux remarques :
- je doutes que l'interpolation des variables du shell Windows (comme %SystemRoot% se fasse correctement)
- il est sans doute préférable de chomper les noms de fichier avant unlink.

[saw-next]

Peux-tu préciser ce qui ne marche pas... ?

Bonjour et merci Philou67430, on dirai que le code ne supprime qu'un seul fichier, et le surprenant dans tout ça c'est que, quand j'appel le script une autre fois pour supprimer le fichier suivant, il ne supprime rien
J'ai essayer comme t'as dit, t'éviter l'utilisation des variables du Shell
%SystemRoot%..etc mais rien ne se passe..

merci en tout cas

[Philou67430]

Et le chomp($line) avant le if ?
Si ton fichier est de type Windows, il peut aussi être utile de définir le séparateur de ligne avec "\r\n" en début de programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$/ = "\r\n";

[saw-next]

Et le chomp($line) avant le if ?
[/CODE]

Merci Philou67430,

problème résolu, c'était juste le chomp

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
19
20
21
22
 
#! perl
 
use strict; 
use warnings;
 
 
open my $file,"<","erase.txt" or die "fichier introuvable";
 
while(my $line=<$file>)
{
  chomp($line);
 
  if(unlink($line) == 0) 
  {
    print "$line intouvable\n";
  }
  else
  {
    print "$line effacer\n";
  }
}

avec: contenu du fichier erase.txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
c:\file test.txt
D:\dossier\file.tmp
..etc

il peut aussi être utile de définir le séparateur de ligne avec "\r\n" en début de programme :
[CODE]$/ = "\r\n";

j'ai pas compris

@+

[Philou67430]

Je ne connais pas la valeur par défaut de ton $/, ni comment se termine tes lignes dans ton fichier, c'est pourquoi je t'ai proposé de modifier sa valeur.

Pour comprendre, lire :
perldoc perlvar (chercher la variable $/).

[Jedai]

Si ton fichier est de type Windows, il peut aussi être utile de définir le séparateur de ligne avec "\r\n" en début de programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$/ = "\r\n";

S'il est sous Windows, il ne faut surtout pas qu'il redéfinisse ainsi $/ : le mode de lecture texte, qui est le défaut sous Windows traduit automatiquement les \r\n en \n en entrée et les \n en \r\n à l'écriture.

--
Jedaï

[Philou67430]

Sauf s'il est sous XP/Cygwin installé avec l'option fichier texte Unix