Re^4: Basic question (mod

If you leave out the "...." in your code, it's impossible that $Report is empty

Sorry, wrong. The part that is "left out" is mod_perl, which was clearly mentioned in the root node, and what it adds isn't where the "..."s in the shown code are.

What it produces is close to:

sub 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";
}
[download]

and each time the page is displayed:

script()
[download]

And that results in $Report being empty every time it is run except for the first. Certainly not "impossible".

- tye

Comment on Re^4: Basic question (mod_perl) Select or Download Code

Replies are listed 'Best First'.
Re: Basic question (mod_perl) by Abigail-II (Bishop) on Aug 20, 2003 at 15:44 UTC
But in the original post, it says: My final* print of $Report is sometimes empty* Now, I can understand `mod_perl` resetting `$Report` each time the code is run. But resetting it right before the final print, after the subroutine call has added to it? In your code fragment, `$Report` isn't empty when it's being printed either. Abigail	[reply]
Re^6: Basic question (mod_perl) by tye (Sage) on Aug 20, 2003 at 15:51 UTC
In your code fragment, $Report isn't empty when it's being printed either. Sorry, wrong again. `sub 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();` [download] produces `update.pl: end [ <H5></H5>бб<P></P> ] update.pl: end [ ] update.pl: end [ ]` [download] and you can see that the final print of $Report is empty every time but the first, just like I said. - tye	[reply] [d/l] [select]