Re: CAM::PDF Error: Expected identifier label

I used the following to create a minimal, 9-page, PDF document:

#!/usr/bin/env perl

use strict;
use warnings;

use PDF::API2;

my $pdf = PDF::API2::->new();
my $font = $pdf->font('Helvetica-Bold');

for my $content ('A' .. 'I') {
    my $page = $pdf->page();
    my $text = $page->text();
    $text->font($font, 20);
    $text->position(200, 700);
    $text->text($content);
}

$pdf->save('DX.pdf');
[download]

A visual check of "DX.pdf", with Foxit Reader, showed nine pages with "A", "B", ..., "H", "I".

I pretty much copied your posted code. Here's my exact script:

#!/usr/bin/env perl

use strict;
use warnings;

use CAM::PDF;

my $pdf = CAM::PDF->new('DX.pdf');

my $np = $pdf->numPages();
print "Number of pages: $np\n";

$pdf->extractPages( 2..8 );

$pdf->cleanoutput('DXout.pdf');
[download]

When I ran this, the only output was:

Number of pages: 9
[download]

A visual check of "DXout.pdf", with Foxit Reader, showed seven pages with "B", ..., "H".

So, your code is behaving as expected. This suggests a problem with your source PDF. There could also be a problem with CAM::PDF itself: there are currently 52 active bugs; I did a quick scan but didn't see anything obvious; you may want to look more closely; updating to the latest version might be warranted.

Thanks for posting your environment information. I'm using Cygwin on Win10 (both updated less than 24 hours ago); Perl 5.36.0 (via Perlbrew); CAM::PDF 1.60 (latest version, newly installed as I haven't used that module previously); PDF::API2 2.043 (that's what I had, latest is 2.044).

As an afterthought, I did `perlbrew switch perl-5.34.0` and repeated the above tests. I got the same successful results: your Perl version doesn't appear to be an issue.

For your PDF::API2 installation issue, I suggest you post that separately and include verbatim error & warning messages.

— Ken

Comment on Re: CAM::PDF Error: Expected identifier label Select or Download Code

Replies are listed 'Best First'.
Re^2: CAM::PDF Error: Expected identifier label by Anonymous Monk on Mar 24, 2023 at 23:24 UTC
Pdf format moves on, cam pdf hasn't	[reply]
Re^3: CAM::PDF Error: Expected identifier label by kcott (Archbishop) on Mar 24, 2023 at 23:59 UTC
Fair enough comment and could point to the problem. CAM::PDF was last updated a decade ago; PDF::API2 was last updated a few months ago. When the OP sorts out the API::PDF2 installation problem, something like this might be a better way to go: `#!/usr/bin/env perl use strict; use warnings; use PDF::API2; my $src = PDF::API2->open('DX.pdf'); my $pdf = PDF::API2::->new(); for my $page_num (2 .. $src->page_count() - 1) { $pdf->import_page($src, $page_num, $page_num - 1); } $pdf->save('DXout2.pdf');` [download] I did a visual check of "DXout2.pdf": it looks the same as "DXout.pdf" but is substantially larger. `$ ls -al ... -rw-r--r-- 1 ken None 3855 Mar 25 09:10 DX.pdf -rw-r--r-- 1 ken None 3277 Mar 25 09:42 DXout.pdf -rw-r--r-- 1 ken None 5525 Mar 25 10:46 DXout2.pdf ...` [download] If the OP chooses that route, an improvement on my simplistic solution may be worth investigating. Edit (fixed typo): `s/API::PDF2/PDF::API2/` — Ken	[reply] [d/l] [select]


Your skill will accomplish what the force of many cannot
	PerlMonks