Hello again.

BACKGROUND:
I'm trying to use that code in ahmad's reply to add reCaptcha to a form in a template file. That template file is a static file, not a Perl executable file like .pl nor .pm.

Within the form code section in that template file, I added a placeholder in hopes of adding and executing a single Perl statement once that template file was called by the .pm file. I've renamed that placeholder from <TMPL_VAR NAME="PERLCODE"> to <RECAPTCHA>.

I tried adding the Perl statements as shown below inside of the .pm file that calls the template file, but with each version I tried, it generated a 'Software Error' pointing to the '$t->param...' statement. There's other code prior to this code I added.

use HTML::Template;
use Captcha::reCAPTCHA;
my $c = Captcha::reCAPTCHA->new;
my $t = HTML::Template->new( scalarref => \$template_file );
$t->param( <RECAPTCHA> => "print $c->get_html( 'your public key here' 
+);" );    
$Output = $t->output;
[download]

This routine is part of a subroutine where the final $Output var is returned.

What might be done to get this to work?

I've renamed that placeholder from <TMPL_VAR NAME="PERLCODE"> to <RECAPTCHA>.

Now it's not an HTML::Template placeholder so H::T won't know what it is.

use HTML::Template;
use Captcha::reCAPTCHA;

my $c    = Captcha::reCAPTCHA->new;
my $html = $c->get_html('your public key here');

my $t    = HTML::Template->new(scalarref => \$template_file);
$t->param(html => $html);    
$output  = $t->output;
[download]

Change your template placeholder to <TMPL_VAR NAME="html">.

Untested.

You can't put Perl code in a H::T template. That, imo, is A Good Thing. Keep all the code in your script and leave H::T to look after the presentation (the view).

It's worth having a good read of the docs. While you can't put code in the template there are some nifty things you can do that will make your life a lot easier.

Thanks for your reply, wfsp.

Q: Do you know of any other method to insert that Perl 'print' statement at runtime via some sort of substitution into what is essentially a static HTML template file that when called by the Perl module file (.pm), that print statement gets executed?

Thanks again.