# pas très propre le join... Manière rapide de récupérer toute l'entrée # standard dans une seule variable
Sans join : undef $/; my $message=<>;
my $message = join( "", <>) ;
my $nom_msg = "/tmp/msg_corps1"; if (open(AJOUT, ">$nom_msg") ) { print AJOUT "$messagesn"; # ligne 58 close AJOUT; }
Le "s" de message en trop !
ecureuil
"cwpbl" a écrit dans le message de news: 446ca78b$0$2219$ | > 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 | | Sans join : | undef $/; | my $message=<>; | | > my $message = join( "", <>) ; | > | > my $nom_msg = "/tmp/msg_corps1"; | > if (open(AJOUT, ">$nom_msg") ) | > { | > print AJOUT "$messagesn"; # ligne 58 | > close AJOUT; | > } | | Le "s" de message en trop !
cela fonctionne! ;o)
merci anne
"cwpbl" <cwpbl@rf.oohay> a écrit dans le message de news:
446ca78b$0$2219$79c14f64@nan-newsreader-07.noos.net...
| > 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
|
| Sans join :
| undef $/;
| my $message=<>;
|
| > my $message = join( "", <>) ;
| >
| > my $nom_msg = "/tmp/msg_corps1";
| > if (open(AJOUT, ">$nom_msg") )
| > {
| > print AJOUT "$messagesn"; # ligne 58
| > close AJOUT;
| > }
|
| Le "s" de message en trop !
"cwpbl" a écrit dans le message de news: 446ca78b$0$2219$ | > 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 | | Sans join : | undef $/; | my $message=<>; | | > my $message = join( "", <>) ; | > | > my $nom_msg = "/tmp/msg_corps1"; | > if (open(AJOUT, ">$nom_msg") ) | > { | > print AJOUT "$messagesn"; # ligne 58 | > close AJOUT; | > } | | Le "s" de message en trop !
cela fonctionne! ;o)
merci anne
tuser
cwpbl wrote:
Sans join : undef $/; my $message=<>;
encore mieux (vu dans le livre "Perl Best Practices" de Damian Conway):
my $message = do { local $/; <> };
Dans ce contexte, Damian Conway parle aussi d'un module "Perl6::Slurp", mais je n'ai pas encore essayé ce module.
cwpbl wrote:
Sans join :
undef $/;
my $message=<>;
encore mieux (vu dans le livre "Perl Best Practices" de Damian Conway):
my $message = do { local $/; <> };
Dans ce contexte, Damian Conway parle aussi d'un module "Perl6::Slurp",
mais je n'ai pas encore essayé ce module.
