Perl Requires Chilkat v11.7.0+

Deflate Compression Level When Optimizing a PDF

See more PDF Optimization Examples

Demonstrates compressionLevel, which is the deflate level (1 to 9, 9 by default) used for every stream the optimizer re-encodes. Level 9 is the smallest and the slowest; level 1 is the quickest. The difference is usually a percent or two, so level 9 is the right default for a file that will be downloaded many times, and a lower level is worth considering only when a server optimizes PDFs on the fly. A value outside 1 to 9 is an error. 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 $fac = Chilkat2::FileAccess->new;
my $json = Chilkat2::JsonObject->new;
my $jsonOut = Chilkat2::JsonObject->new;

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

$json->UpdateInt('compressionLevel', 1);
$success = $pdf1->Optimize('optimize', $json, $jsonOut);
if (!$success) {
    print $pdf1->LastErrorText, "\n";
    exit;
}

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

print 'level 1: ', $fac->FileSize('qa_output/watersense_level1.pdf'), "\n";

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

$json->UpdateInt('compressionLevel', 9);
$success = $pdf9->Optimize('optimize', $json, $jsonOut);
if (!$success) {
    print $pdf9->LastErrorText, "\n";
    exit;
}

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

print 'level 9: ', $fac->FileSize('qa_output/watersense_level9.pdf'), "\n";

# A level outside 1..9 fails, and LastErrorText says why.
my $pdfBad = Chilkat2::Pdf->new;
$success = $pdfBad->LoadFile('qa_data/pdf/watersense_accomplishments.pdf');
if (!$success) {
    print $pdfBad->LastErrorText, "\n";
    exit;
}

$json->UpdateInt('compressionLevel', 12);
$success = $pdfBad->Optimize('optimize', $json, $jsonOut);
if (!$success) {
    print "compressionLevel 12 was refused, as it should be.\n";
}