Jim Doyle wrote:
>
> Using CGI in a script written in Perl
> $Msg = <<MYHEREDOC;
> <tr> <td align=right>City:</td> <td align=left><b><%
> $Response->write($Request->Form('city')) ; %></b></td></tr>
> MYHEREDOC
>
> the corresponding outputs are Win32::OLE=HASH(0x2e854a8)->writeblock(34);
write() is a subroutine and subroutines are not interpolated in
variables:
$foo = "hello print('world');";
Perl does not execute print() inside that string. The same thing applys
to your here document. The Response object has a method call write()
which is a subroutine and therefore is not executed.
> whereas when using PerlScript with Active State
I think you want to do something like this:
<tr> <td align=right>City:</td> <td align=left><b>
<%= $Request->Form('city')->{Item} %>
</b></td></tr>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
