Perl

Get a Mail-Merge Replace Pattern

Demonstrates the Chilkat Email.GetReplacePattern method, which returns a replacement pattern — the search string — previously defined for mail-merge operations with SetReplacePattern. The index is zero-based. This example defines two patterns and enumerates them.

Background: In Chilkat's mail-merge, each entry is a pattern (a placeholder token such as FIRST_NAME) paired with a replacement string. GetReplacePattern retrieves the search side of the pair at a given index; GetReplaceString retrieves the matching replacement. Reading them back is useful for inspecting or logging exactly which substitutions will be applied when the message is sent.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

#  Demonstrates the GetReplacePattern method, which returns a replacement pattern (the
#  search string) previously defined for mail-merge operations with SetReplacePattern.
#  The index is zero-based.

$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");

$n = $email->get_NumReplacePatterns();

for ($i = 0; $i <= $n - 1; $i++) {
    print "Pattern " . $i . ": " . $email->getReplacePattern($i) . "\r\n";
}