Perl Requires Chilkat v11.7.0+
>, says so with placeholderSyntax, written around the word "name".
Perl
PDF Placeholders with Other Delimiters: [[name]]
See more PDF Text Replacement Examples
Demonstrates the "placeholderSyntax" option. Placeholders are {{name}} by default; a template written with other delimiters, such as [[name]] or <Chilkat Perl Downloads
use chilkat();
$success = 0;
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
# The PDF used in this example is available at letter_template.pdf
$pdf = chilkat::CkPdf->new();
$success = $pdf->LoadFile("qa_data/pdf/letter_template.pdf");
if ($success == 0) {
print $pdf->lastErrorText() . "\r\n";
exit;
}
# The letter reads: "Dear [[name]]," ... "expires on [[expiry]]" ... "[[amount]] per year" ... "[[agent]]".
$json = chilkat::CkJsonObject->new();
$json->UpdateString("placeholderSyntax","[[name]]");
$json->UpdateString("placeholders.date","October 18, 2026");
$json->UpdateString("placeholders.name","Ms. Rivera");
$json->UpdateString("placeholders.expiry","December 31, 2026");
$json->UpdateString("placeholders.amount","$299.00");
$json->UpdateString("placeholders.agent","Dana Whitfield, Account Manager");
$jsonOut = chilkat::CkJsonObject->new();
$success = $pdf->TextReplace("apply",$json,$jsonOut);
if ($success == 0) {
print "Not applied: " . $jsonOut->emit() . "\r\n";
if ($success == 0) {
print $pdf->lastErrorText() . "\r\n";
exit;
}
}
$i = 0;
$count_i = $jsonOut->SizeOfArray("replacements");
while ($i < $count_i) {
$jsonOut->put_I($i);
print "[[" . $jsonOut->stringOf("replacements[i].field") . "]] replaced" . "\r\n";
$i = $i + 1;
}
$success = $pdf->WriteFile("qa_output/letter_rivera.pdf");
if ($success == 0) {
print $pdf->lastErrorText() . "\r\n";
exit;
}
# Sample output:
# [[date]] replaced
# [[name]] replaced
# [[expiry]] replaced
# [[amount]] replaced
# [[agent]] replaced