Jim Doyle <[EMAIL PROTECTED]> wrote:
> B my $city = $Response->Form( 'city' )->{Item} ;
> $Response->Write(<<EOT) ;
> <tr><td align=right>City:</td><td align=left>$city</td></tr>
> EOT
> does produce a here document
>
> C But I am not able to capture it for reuse, at least not with
> $Msg = $Response->Write(<<EOT) ;
>
> followed by
> print TFILE $Msg ; for archiving
> Send( $Msg ) ; for e-mailing
You don't want to capture the result of $Response->Write(), do
you? You want to capture the string:
$Msg = <<EOT;
...
EOT
$Response->Write($Msg);
print TFILE $Msg;
Send($Msg);
--
Keith C. Ivey <[EMAIL PROTECTED]>
Washington, DC
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
