utilisation de la commande ls du shell dans un programme perl

Voici un programme perl qui doit m'afficher "présent" quand un fichier dont le nom est du type "backout_factures.pl.PAT91_DB.quelquechose.12345.sem" est dans le repertoire /tmp

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/env perl   if(`ls /tmp/backout_factures.pl.PAT91_DB* | grep 12345.sem 1>/dev/null 2>&1 `) { print "présent"; } else { print "absent"; }

---

Mon problème est que perl affiche un message m'indiquant que "/tmp/backout_factures.pl.PAT91_DB*" n'a pas été trouvé.

Citation:

---

toto@titi:/home/users/toto > script.pl
/tmp/backout_factures.pl.PAT91_DB* not found
absent

---

Comment puis-je faire pour que ce message ne s'affiche pas (afin de ne pas effrayer les utilisateurs du script) ? J'ai essayé la redirection des erreurs en shell mais en vain, c'est ce qui m'amène à croire que c'est perl qui affiche ce message.

Merci d'avance à tout ceux qui pourront m'apporter leur aide :-)

Tu ne fais pas la redirection des erreurs du shell au bon endroit : c'est "ls" qui affiche ce message, pas grep (et c'est bien du shell que vient l'erreur, pas de Perl).
Néanmoins pour savoir si ce fichier existe, il y a bien plus simple et efficace :

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/env perl use List::Util qw(first);   if( first { m/12345.sem/ } glob('/tmp/backout_factures.pl.PAT91_DB*') ) { print "présent"; } else { print "absent"; }

---

--
Jedaï

Merci :o)