Perl Requires Chilkat v11.7.0+

Extract PDF Text to a StringBuilder and Save to a File

See more PDF Text Extraction Examples

Demonstrates ExtractTextSb, which writes the extracted text to a StringBuilder instead of returning it as a JSON string. Use it for large documents. The JSON output still receives the quality report. Perl

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 long_report.pdf

$pdf = chilkat::CkPdf->new();
$success = $pdf->LoadFile("qa_data/pdf/long_report.pdf");
if ($success == 0) {
    print $pdf->lastErrorText() . "\r\n";
    exit;
}

print "Number of pages: " . $pdf->get_NumPages() . "\r\n";

#  ExtractTextSb takes the same operation and options as ExtractText, but the text
#  goes to a StringBuilder.  This avoids building a very large JSON string for
#  documents with many pages.
$json = chilkat::CkJsonObject->new();
$sbText = chilkat::CkStringBuilder->new();
$jsonOut = chilkat::CkJsonObject->new();

$success = $pdf->ExtractTextSb("text",$json,$sbText,$jsonOut);
if ($success == 0) {
    print $pdf->lastErrorText() . "\r\n";
    exit;
}

print "Extracted " . $sbText->get_Length() . " characters." . "\r\n";

#  Save the text to a file.
$success = $sbText->WriteFile("qa_output/long_report.txt","utf-8",0);
if ($success == 0) {
    print $sbText->lastErrorText() . "\r\n";
    exit;
}

#  The JSON output does not contain the text, but it still has the quality report.
print "Quality: " . $jsonOut->stringOf("quality.rating") . "\r\n";
print "Pages with no text (need OCR): [" . $jsonOut->stringOf("quality.pagesNeedingOcr") . "]" . "\r\n";

#  Sample output:

#  Number of pages: 3
#  Extracted 4522 characters.
#  Quality: good
#  Pages with no text (need OCR): []