Perl Requires Chilkat v11.7.0+

Audit a PDF First, Optimize Only If It Is Worth It

See more PDF Optimization Examples

Demonstrates deciding whether to rewrite a PDF at all. "audit" costs a fraction of a second and changes nothing, so a batch job can audit every file and optimize only those where enough would be saved. Here the threshold is a tenth of the file; a file already as small as it can be is left alone. 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 watersense_accomplishments.pdf

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

my $json = Chilkat2::JsonObject->new;
my $jsonOut = Chilkat2::JsonObject->new;
$success = $pdf->Optimize('audit', $json, $jsonOut);
if (!$success) {
    print $pdf->LastErrorText, "\n";
    exit;
}

my $fileSize = $jsonOut->IntOf('fileSize');
my $estimated = $jsonOut->IntOf('estimatedSavings.total');
print 'fileSize:  ', $fileSize, "\n";
print 'estimated: ', $estimated, "\n";

# Only bother when at least a tenth of the file would go.
if ($estimated > (int($fileSize / 10))) {
    print "Worth optimizing.\n";
    $success = $pdf->Optimize('optimize', $json, $jsonOut);
    if (!$success) {
        print $pdf->LastErrorText, "\n";
        exit;
    }

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

    print 'bytesSaved: ', $jsonOut->IntOf('bytesSaved'), "\n";
} else {
    print "Already small enough; left as it is.\n";
}