Discussion :

[aircamus]

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 :

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

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é.

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 :-)

[Jedai]

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 :

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

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ï

[aircamus]

Merci :o)