Here's some scrappy code I used to convert HTML::Template
templates to TT2 some years back, just to help the stragglers along...
#!/usr/bin/perl -p
# rough conversion of HTML::Template files to TT2
use strict;
s{<(\/)?TMPL_(\S+)\s*(?:(?:NAME=)?['"]?(.*?)['"]?)?>}
<
#warn "Got ($1) ($2) ($3)\n";
my ($close, $tag, $name) = ($1,uc($2),$3);
my $out = '';
if($tag =~ /^IF|UNLESS$/) {
$out = $close ? "[% END %]" : "[% $tag $name %
+]";
} elsif($tag =~ /^INCLUDE|ELSE$/) {
$out = "[% $tag $name %]";
} elsif($tag eq 'LOOP') {
$out = $close ? "[% END %]" : "[% FOREACH $nam
+e %]";
} elsif($tag eq 'VAR') {
$out = "[% $name %]";
} else {
warn "Unknown tag $tag ($close,$name)\n";
}
warn $out;
$out;
>gei;