There are many different solutions out there (read CPAN). But for straight variable replace. I like this litte fast solution. There are certainly some more 'complete' solutions, but none matches this on for speed. 

# Just hand it a hash with keys=var name, value=replace value.
# template encoding scheme is %%\s*varname\*%% 
package Template;
use strict;
require 5.004;

use Carp;

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $path = shift;
  open(F,"<$path") or croak "Cannot open $path for read: $!";
  my $template = do { local $/; scalar <F> };
  my $self = { template => $template };
  bless $self, $class;
  return $self;
}

sub spit {
  my $self = shift;
  my $data = shift;
  my $template = $self->{template};

  foreach my $field (keys %$data) {
    my $subber = $data->{$field} || '';
    $template =~ s/%%\s*$field\s*%%/$subber/g;
  }
  # now nuke all unfilled variables
  $template =~ s/%%\s*[A-Za-z0-9_]+\s*%%//g;
  return $template;
}

1;

[download]

code orginally inspired by J. Feinberg NYC who may or may not be a member monk

mitd-Made in the Dark
'My favourite colour appears to be grey.'

In reply to RE: REGEX: muliple search and replace by mitd
in thread REGEX: muliple search and replace by whahoo

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.