用于根据模式从 pdf 文件中删除页面的 Perl 脚本

Question

We have a 3,000-page PDF file and we want to remove pages based on a pattern.

For example pagenot found in the PDF have 50 pages. Now output is like to 2,950 pages by removing 50 pages from the document.

Answer 1

Could you please try this:

use strict;
use warnings;
use CAM::PDF;

my $pdf = CAM::PDF->new('input.pdf');
my $ttl_pgs = $pdf->numPages();

for(1..$ttl_pgs)
{
    my $pagnum = $_;
    my $pdf_cnt = $pdf->getPageContent($pagnum);
    if($pdf_cnt=~m/pages not found/i)
    {
         $pdf->deletePage($pagnum);
    }
}
$pdf->cleanoutput('output.pdf');