- or download this
my $t =Template->new();
$t->process("his.tmpl", {lines=>\@vars}, "output.html" )
or die $t->error();
- or download this
#!/usr/bin/perl
use strict;
...
#this will print replacement character to test_out1.html
my $t=Template->new();
$t->process("test.tmpl",{a=>$decoded},"test_out1.html");
- or download this
<html>
<head>
...
</body>
</html>
- or download this
#!/usr/bin/perl
use strict;
...
#this is good
my $t=Template->new();
$t->process("test.tmpl",{a=>$encoded},"test_out2.html");