Template Toolkit: BLOCK + WRAPPER - #77468 (Fragen zu Perl-Modulen)

bloonix

2007-06-13 02:15

User since
2005-12-17
1615 Artikel
HausmeisterIn

So, hier nochmal ganz simple... wenn du es mal ausprobieren möchtest...

index.tmpl

Code: (dl )

<html>
<head>
   <title></title>
</head>
<body>
</body>
</html>

test.pl

Code: (dl )

use strict;
use warnings;
use Benchmark;
use Template;

open my $fh, '<', 'index.tmpl' or die $!;
my $template = do { local $/; <$fh> };
close $fh;

my $t1 = Template->new(INCLUDE_PATH => '.') or die $!;

sub program { $t1->process(\$template, undef, '/dev/null') or die $!; }
sub cache   { $t1->process('index.tmpl', undef, '/dev/null') or die $!; }

Benchmark::cmpthese(-1, {
   cache   => \&cache,
   program  => \&program,
});

Rate program cache program 2277/s -- -53% cache 4886/s 115% --\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.