Sharad Pratap wrote:
> #!/bin/env perl
> use Template;
> our $template = Template->new();
> our $txt,
> our %var;
> foreach ( qw/ a b c d e f / ) {
> $var{"x"} = $_;
> $template->process(\*DATA, \%var, \$txt);
> print "value expected ", $_, "\n";
> print $txt;
> }
> __END__
> value really comming [% x %]
Each time you call process(), TT attempts to read the template from the
DATA filehandle. However, after the first call, DATA is left pointing
at the end of the file, so the subsequent calls are getting an empty
template. You need to either seek back to the start of the template
each time, or, more simply, read in the template ahead of time:
#!/bin/env perl
use Template;
our $template = Template->new();
our $txt,
our %var;
our $t = <DATA>;
foreach ( qw/ a b c d e f / ) {
$var{"x"} = $_;
$template->process(\$t, \%var, \$txt);
print "value expected ", $_, "\n";
print $txt;
}
__END__
value really coming [% x %]
Note that process() appends the output to the variable, so you may want
to clear $txt each time through the loop.
Ronald
_______________________________________________
templates mailing list
[email protected]
http://mail.template-toolkit.org/mailman/listinfo/templates
