tt-to-twig.pl

gistfile1.pl

use strict;
use warnings;

local $| = 1;

while (my $line = <>) {
    $line =~ s/\[% WRAPPER '(.+?)' %\]/{% extends "layout.html.twig" %}\n{% set pageid = '' %}\n\n{% block content %}/g;
    $line =~ s/\[% END # WRAPPER %\]/{% endblock %}/g;

    $line =~ s/\[% FOREACH (.+?) IN (.+?) %\]/{% for $1 in $2 %}/g;
    $line =~ s/\[% END # FOREACH %\]/{% endfor %}/g;

    $line =~ s/\[% IF (.+?) %\]/{% if $1 %}/g;
    $line =~ s/\[% ELSE %\]/{% else %}/g;
    $line =~ s/\[% END # IF %\]/{% endif %}/g;

    $line =~ s/\[% END %\]/{% endfixme %}/g;

    $line =~ s!\[% (.+?) %\]!
        my $var = $1;
        $var =~ s{\|\|}{?:};
        $var =~ s{//}{?:};
        $var =~ s{ _ }{ ~ }g;

        sprintf '{{ %s }}', $var;
    !ge;

    print $line;
}