Pau Marc Munoz Torres wrote:
> Hi
>
> I just copied this script from CGI::Ajax manual at cpan.org page
>
> use strict;
> use CGI; # or any other CGI:: form handler/decoder
> use CGI::Ajax;
>
> my $cgi = new CGI;
> my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func );
>
> print $pjx->build_html( $cgi, \&Show_HTML);
>
> sub perl_func {
> my $input = shift;
> # do something with $input
> my $output = $input . " was the input!";
> return( $output );
> }
>
> sub Show_HTML {
> my $html = <<EOHTML;
> <HTML>
> <BODY>
> Enter something:
> <input type="text" name="val1" id="val1"
> onkeyup="exported_func( ['val1'], ['resultdiv'] );">
> <br>
> <div id="resultdiv"></div>
> </BODY>
> </HTML>
> EOHTML
> return $html;
> }
>
> And I get the error:
>
> Can't find string terminator "EOHTML" anywhere before EOF at ./ajax.pl line
> 37.
>
> What's wrong?
The here-document terminator EOHTML must be on its own on the line, i.e.
there can't be any whitespace before or after it or it won't be found.
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
