]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/memory_template.pl
9c055667568bd9c1dd065ad25d81dfb13ed6010e
8 hash
=> {a
=> 1, b
=> 2},
9 code
=> sub {"($_[0])"},
12 my $txt = "[% one %][% two %][% three %][% hash.keys.join %] [% code(one).length %] [% hash.\$a_var %]\n";
15 ###----------------------------------------------------------------###
20 $module = 'CGI::Ex::Template';
22 $module = 'CGI::Ex::Template::XS';
27 $name = 'Template Stash::XS';
28 require Template
::Stash
::XS
;
30 $module = 'HTML::Template';
32 $module = 'HTML::Template::Expr';
35 $name = 'Template::Parser::CET';
36 require Template
::Parser
::CET
;
37 Template
::Parser
::CET-
>activate;
44 my $pm = "$module.pm";
48 if ($module =~ /HTML::Template/) {
49 my $t = eval { $module->new };
53 my $t = $module->new(ABSOLUTE
=> 1);
55 $t->process(\
$txt, $swap, \
$out);
57 for (1..30) { my $out; $t->process(\
$txt, $swap, \
$out); };
60 # print "$name $_\n" foreach sort keys %INC;
61 print "$name times: (@{[times]})\n";
67 print grep {/\Q$0\E/} `ps fauwx`;
68 #sleep 15; # go and check the 'ps fauwx|grep perl'
71 ###----------------------------------------------------------------###
74 my $hello2000 = "<html><head><title>[% title %]</title></head><body>
75 [% array = [ \"Hello\", \"World\", \"2000\", \"Hello\", \"World\", \"2000\" ] %]
76 [% sorted = array.sort %]
77 [% multi = [ sorted, sorted, sorted, sorted, sorted ] %]
79 [% FOREACH row = multi %]
80 <tr bgcolor=\"[% loop.count % 2 ? 'gray' : 'white' %]\">
81 [% FOREACH col = row %]
82 <td align=\"center\"><font size=\"+1\">[% col %]</font></td>
88 [% FOREACH i = [ 1 .. 10 ] %]
89 [% var = i + param %]"
90 .("\n [%var%] Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World <br/>"x20
)."
This page took 0.037921 seconds and 4 git commands to generate.