Perl

Get a Mail-Merge Replacement String by Index

Demonstrates the Chilkat Email.GetReplaceString method, which returns the replacement string for the Nth previously-defined pattern/replacement pair (a mail-merge feature). The index is zero-based and corresponds to the same index used by GetReplacePattern. This example defines two pairs and prints each pattern with its replacement.

Background: Pairing GetReplacePattern (the token to find) with GetReplaceString (the text to substitute) at the same index lets you walk the full mail-merge table. Retrieving a replacement by its position is handy when enumerating all substitutions; to look one up by its pattern instead, use GetReplaceString2.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the GetReplaceString method, which returns the replacement string for the
# Nth previously-defined pattern/replacement pair (a mail-merge feature).  The index is
# zero-based and corresponds to the same index used by GetReplacePattern.

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');

my $n = $email->NumReplacePatterns;
for my $i (0 .. $n - 1) {
    print $email->GetReplacePattern($i), ' -> ', $email->GetReplaceString($i), "\n";
}