| Ben j'en vois 2:
|
| $ perl faxviamail.pl /tmp/repfaxz/titio 2>&1 | perl faxviamail_log.pl
| (en modifiant le 2nd pour qu'il lise à partir de stdin)
|
| $ perl faxviamail.pl /tmp/repfaxz/titio 1>/tmp/logrepfax 2>&1; perl \
| faxviamail_log.pl /tmp/logrepfax
|
merci pour vos réponses...
J'avais juste un ti souci avec le pipe...
Je pensais qu'il me donnait un nom de fichier... pas toutes les lignes de stdin...
J'ai corrigé dans le deuxième pgm..
au lieu de
my $filemsg = shift;
avec ces petites lignes cela marrche mieux!
my $message = do { local $/; <> } or die print "erreur de fichier\n";
my $filemsg = "/tmp/logrepfax.txt";
if (open(AJOUT, ">$filemsg") ) {
print AJOUT "$message\n";
close AJOUT;
}
et plus de pb!
Encore une énormité de ma part!
merci
anne
