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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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).

my $email = Chilkat2::Email->new;
$email->Subject('Hello FIRST_NAME');
$email->Body('Dear FIRST_NAME, welcome to CITY.');

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

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