X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=samples%2Fmemory_template.pl;h=6b03cdf39e08ff60d39214a47e2ec3d68ea3fee8;hb=refs%2Ftags%2Fv2.04;hp=28b17105331b72f6328abd0bb60894ba259827a8;hpb=d2b7c937e86e6e8c4b4193e9f4a8da075919b4fd;p=chaz%2Fp5-CGI-Ex diff --git a/samples/memory_template.pl b/samples/memory_template.pl index 28b1710..6b03cdf 100644 --- a/samples/memory_template.pl +++ b/samples/memory_template.pl @@ -10,6 +10,7 @@ my $swap = { }; my $txt = "[% one %][% two %][% three %][% hash.keys.join %] [% code(one).length %] [% hash.\$a_var %]\n"; +#$txt = hello2000(); ###----------------------------------------------------------------### @@ -37,3 +38,26 @@ sleep 15; # go and check the 'ps fauwx|grep perl' ###----------------------------------------------------------------### + +sub hello2000 { + my $hello2000 = "
[% col %] | + [% END %] +