In your code fragment, $Report isn't empty when it's being printed either.
Sorry, wrong again.
producessub script { my $Report=""; sub note { my ($titre,$texte) = @_; my $Texte= '<H5>'.$titre.'</H5>ญญ<P>'.$texte.'</P>'; $Report .=$Texte; } note($title,$text); print STDERR "*update.pl: end \n[\n$Report\n]\n"; } script(); script(); script();
and you can see that the final print of $Report is empty every time but the first, just like I said. - tye*update.pl: end [ <H5></H5>กก<P></P> ] *update.pl: end [ ] *update.pl: end [ ]
In reply to Re^6: Basic question (mod_perl)
by tye
in thread Basic question
by pcouderc
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |