Discussion :

[vince2005]

Bonjour,

Je lance une commande perl (ou je teste un répertoire).
Cependant si celui ci n'existe pas, au lieu de renvoyer une erreur, je souhaiterai qu'elle soit rediriger vers un fichier comme sous unix, ainsi le message d'erreur ne s'affiche pas.

Ou tester si mon répertoire existe ou pas

Merci

[Philou67430]

Je ne comprends pas bien : qui génère l'erreur sur STDERR ?
Ton script ?
Un module que tu ne génères pas ?

Si c'est ton script, tu peux simplement filtrer cet affichage à l'aide d'un test.
Si c'est un module que tu ne maitrises pas, il faut capturer l'exception à l'aide de la construction eval { ... }.
Voir la doc sur les captures d'exception :

Code :

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

perldoc -f eval

[vince2005]

en fait dans un script perl, j'ai deux solutions pour créer mon répertoire sous windows.

system ("md $repertoire 2>NUL ");

#ou
mkdir ($repertoire, 0777);

si mon repertoire existe déjà, je ne veux pas avoir de retour d'erreur.
ors lorsque j'interroge le coderetour par $?, j'ai toujours 255.

Comment puis je faire pour ne pas générer d'erreur, lors de ce test.

Merci

[djibril]

Code :

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

1
2
3
4
5
my $repertoire = "/home/vince2005/temp";
# création du répertoire s'il n'existe pas
unless ( -d $repertoire) {
  mkdir($repertoire, 0777);
}

Voilà

NB: Apprenez à être clair dans vos demandes.

Merci

[Beniou]

Pour compléter la solution de Djibril, je dirais qu'il faut ajouter un test sur la création dans le cas où le répertoire ne peut pas être crée (problème de droits, chemin farfelu etc.) pour ne pas avoir de surprise dans la suite du script. Ou si tu ne veux vraiment aucun message d'erreur, attribue une valeur à un booléen que tu testes après...

Code :

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

1
2
 
mkdir($repertoire, 0777) or die "Erreur creation : $!\n\n";