Re: Thoughts on converting from HTML::Template to Template Toolkit

[bsb]

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;