in reply to Re^4: Basic question (mod_perl)
in thread Basic question

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

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom