Perl

Get a Mail-Merge Replacement String by Pattern

Demonstrates the Chilkat Email.GetReplaceString2 method, which returns the replacement string for a previously-defined pattern/replacement pair, looked up by the pattern itself (a mail-merge feature). This example defines two pairs and looks up the replacement for one pattern by name.

Background: Where GetReplaceString fetches a replacement by its numeric position, GetReplaceString2 fetches it by the pattern — convenient when you already know the token (say FIRST_NAME) and just want its configured substitution without scanning the whole list.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

#  Demonstrates the GetReplaceString2 method, which returns the replacement string for a
#  previously-defined pattern/replacement pair, looked up by the pattern itself (a
#  mail-merge feature).

$email = chilkat::CkEmail->new();
$email->put_Subject("Hello FIRST_NAME");
$email->put_Body("Dear FIRST_NAME, welcome to CITY.");

$email->SetReplacePattern("FIRST_NAME","John");
$email->SetReplacePattern("CITY","Denver");

#  Look up the replacement for a specific pattern.
$repl = $email->getReplaceString2("FIRST_NAME");
print "FIRST_NAME -> " . $repl . "\r\n";