in reply to Re^3: search replace (interpolation)
in thread search replace (interpolation)
then the perl is trivialMessage-ID: <1039751337.22128@idhost> Content-Transfer-Encoding: 8bit Content-Type: multipart/alternative; boundary="_----------=_1039751337 +22128" MIME-Version: 1.0 Date: Thu, 12 Dec 2002 19:48:57 PST From: <!-- TMPL_VAR NAME=FULLFROM --> <<!-- TMPL_VAR NAME=FROM -->> To: <!-- TMPL_VAR NAME=FNAME --> <!-- TMPL_VAR NAME=LNAME --> <<!-- TM +PL_VAR NAME=EMAIL -->> Subject: <!-- TMPL_VAR NAME=SUBJECT --> Precedence: bulk
Hope this helpswhile(my %recipient_info = get_info_from_db()) { my $template = HTML::Template->new(filename => 'email.tmpl'); $template->param(%recipient_info); print $template->output(); }
|
|---|