How do I capture html that contains usage of
$Response->write within a heredoc
and subsequently print it or store it in a file?
The following script
<%@ LANGUAGE = PerlScript %>
<%
$Msg = <<RIGHTHERE ;
now is the time for all good ones
<html>
<body><br>check the text in the body<br>
$Response->write( "not so simple dear friend" ) ;
<br>to demonstrate the situation<br>
</body>
</html>
RIGHTHERE
%>
$TFile = "myfile" ;
open ( TFILE, $TFile ) || die ("unable to open $TFile ($!).\n") ;
print TFILE $Msg ;
close( TFILE ) ;
produces
now is the time for all good ones
check the text in the body
Win32::OLE=HASH(0x13a54a8)->write( "not so simple dear friend" ) ;
to demonstrate the situation
How do I get my desired text without the Win32 etc. in front of it?
Thanks,
Jim Doyle
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
