$main::Report=""; sub note { my ($titre,$texte) = @_; print STDERR "*update.pl(($titre,$texte)) \n"; my $Texte= '<H5>'.$titre.'</H5><P>'.$texte.'</P>'; $main::Report .=$Texte; print STDERR "*update.pl:$Texte\n[\n$main::Report\n]\n"; } ... note($title,$text); ... print STDERR "*update.pl: end \n[\n$main::Report\n]\n";
In reply to Re: Basic question
by pcouderc
in thread Basic question
by pcouderc
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |