Perl Requires Chilkat v11.7.0+

Replace PDF Text on Selected Pages Only

See more PDF Text Replacement Examples

Demonstrates the "pages" option, which limits the search for placeholders and labels to the given pages: "all" (the default), "first", "last", "odd", "even", or a list such as "1,3,5-9". The two-page order confirmation carries the same "Status:" label on both pages; the status is changed on page 2 only, then on both pages. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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 order_confirmation.pdf

my $pdf = Chilkat2::Pdf->new;
my $success = $pdf->LoadFile('qa_data/pdf/order_confirmation.pdf');
if (!$success) {
    print $pdf->LastErrorText, "\n";
    exit;
}

my $json = Chilkat2::JsonObject->new;
my $jsonOut = Chilkat2::JsonObject->new;

# Both pages have "Status:   Pending".  With pages "2", only page 2 is searched.
$json->UpdateString('pages', '2');
$json->UpdateString('labels[0].label', 'Status:');
$json->UpdateString('labels[0].value', 'Shipped');
$success = $pdf->TextReplace('check', $json, $jsonOut);
if (!$success) {
    print $pdf->LastErrorText, "\n";
    exit;
}

print 'pages 2: found on page(s) ', $jsonOut->StringOf('replacements[0].pages'), "\n";

# With every page searched, the default occurrence ("first") still replaces one -- the first in reading order.
$json->UpdateString('pages', 'all');
$success = $pdf->TextReplace('check', $json, $jsonOut);
if (!$success) {
    print $pdf->LastErrorText, "\n";
    exit;
}

print 'pages all, first occurrence: found on page(s) ', $jsonOut->StringOf('replacements[0].pages'), "\n";

# Every occurrence on every page.
$json->UpdateString('labels[0].occurrence', 'all');
$success = $pdf->TextReplace('apply', $json, $jsonOut);
if (!$success) {
    print $pdf->LastErrorText, "\n";
    exit;
}

print 'pages all, every occurrence: ', $jsonOut->IntOf('replacements[0].count'), ' replaced on page(s) ', $jsonOut->StringOf('replacements[0].pages'), "\n";

$success = $pdf->WriteFile('qa_output/order_shipped.pdf');
if (!$success) {
    print $pdf->LastErrorText, "\n";
    exit;
}

# Sample output:

# pages 2: found on page(s) 2
# pages all, first occurrence: found on page(s) 1
# pages all, every occurrence: 2 replaced on page(s) 1,2