Template Toolkit

[Struppi]

#!/usr/bin/env perl

use strictures;
use Template qw();

my $tt = Template->new;
my $vars = { name => 'Struppi'};
$tt->process(*DATA, $vars) or die $tt->error;

DATA

Hallo [% name %]!

  
Sieht schon viel schöner aus als Text::Template. Wenn man nur lang genug sucht findet man sowas auch in der Doku oder ich hatte gestern Tomaten auf den Augen  
<http://template-toolkit.org/docs/tutorial/Web.html#section_Dynamic_Content_Generation_Via_CGI_Script>  
  
danke.  
  
Struppi.