Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

my $hold='<TMPL_VAR HOLD>';
my $leave = '<TMPL_VAR LEAVE>';
my $munge = '<TMPL_VAR MUNGE>';
  2. or download this
    #!/usr/bin/perl

use strict;
...
$template = HTML::Template->new( filename => $in );
$template->param(%args);
print $template->output;
  3. or download this
    ./fill_blanks script.in HOLD this LEAVE that MUNGE these
  4. or download this
    #!/usr/bin/perl

$hold = "this";
$leave = "that";
$munge = "these";