Persistant variables in TT2

Molt has asked for the wisdom of the Perl Monks concerning the following question:

Something I'm developing at the moment has a need for a mini-language, something that's quick and easy to use. In order to avoid reinventing wheels I decided to use TT2 syntax if possible.

The one problem I'm having with this is that I need to be able to process multiple templates whilst retaining state, effectively running multiple scripts as if they were one large script. In order to test if TT2 would allow this I wrote the following code:

#!/usr/bin/perl
use strict;
use warnings;
use Template;

# Initialise the variable hash, and create us a TT2 obj.
my $vars = { a => 0};
my $tt2 = Template->new();

# Very simple template, should increment TT2's 'a' variable.
my $template = "[% SET a=a+1 %] A is now [% a %]\n";

# Loop through, see if we can keep the new value of a.
for (1..5) {
  $tt2->process (
    \$template,
    $vars
  );
}
[download]

If anyone can suggest any way to keep the value of the variables between each call of process() in the above code I'd be a very happy little monk.

Comment on Persistant variables in TT2 Download Code

Replies are listed 'Best First'.
Re: Persistant variables in TT2 by davidrw (Prior) on May 10, 2005 at 14:47 UTC
instead of passing in the scalar 'a', pass in a hashref with your data, and the changes will persist: `use Template; my $vars = { a => 0 }; my $tt2 = Template->new(); my $template = "[% SET data.a=data.a+1 %] A is now [% data.a %]\n"; $tt2->process( \$template, { data => $vars } ) for 1..5;` [download] Update: My guess, based just on the behavior seen in my post and the OP, is that TT passes the data by value. So in the OP, the 'a' that gets modified isn't the real 'a'. In my post, we're not modifying the value (address) of 'data', but are deferencing it and then changing values, so they appear to persist.	[reply] [d/l]
Re^2: Persistant variables in TT2 by Molt (Chaplain) on May 10, 2005 at 14:56 UTC
Thanks for that, it does seem to work quite nicely. I was admittedly hoping for some way to make it 'just work' but I guess this will serve my purposes fine.	[reply]
Re: Persistant variables in TT2 by merlyn (Sage) on May 10, 2005 at 17:04 UTC
In addition to the other answers I've seen so far in this thread, consider also the use of Template::Plugin::DBM::Deep, which will give you read/write access to arbitrary persistent data structures. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: Persistant variables in TT2 by Anonymous Monk on May 10, 2005 at 14:51 UTC
perldoc Template::Manual::Variables Local and Global Variables Any simple variables that you create, or any changes you make to existing variables, will only persist while the template is being processed. The top-level variable hash is copied before processing begins and any changes to variables are made in this copy, leaving the original intact. The same thing happens when you INCLUDE another template. So you can't do that as-is, but you could subclass Template::Stash or pull other similar dirty tricks :)	[reply]


Just another Perl shrine
	PerlMonks