Re: pb tout petit script perl

tu as un message au singulier et un au pluriel...

anne aublanc a écrit :

>bonjour,
>
>J'ai un pb avec ce tout petit script
>
>#!/usr/bin/perl -w
>
>use strict;
>
># pas très propre le join... Manière rapide de récupérer toute l'entrée
># standard dans une seule variable
>my $message = join( "", <>) ;
>
>my $nom_msg = "/tmp/msg_corps1";
>if (open(AJOUT, ">$nom_msg") )
>{
> print AJOUT "$messages\n"; # ligne 58
> close AJOUT;
>}
>
>2006-05-18 17:54:08.902967500 delivery 452: deferral:
>Global_symbol_"$messages"_requires_explicit_package_name_at_/home/e-smith/files/users/zoro/home/bin/mailman.pl_line_58,_<>_line_384./Execution_of_/home/e-smith/files/users/zoro/home/bin/mailman.pl_aborted_due_to_compilation_errors./
>2006-05-18 17:54:08.902993500 status: local 0/10 remote 0/20
>
>j'ai essayé
>print AJOUT $messages;
>
>Il doit y avoir une énormité!
> Si vous la voyez...
>
> anne
>
>
>
>