Hi all,

I've a very small Perl script that splits PDF files bigger than 100 pages :

use strict;
use warnings;
use PDF::API2;
#...some code here...
#for testing purpose:
my $file='path_to_some.pdf';
#

my $oldpdf = PDF::API2->open($file);
if ($oldpdf->pages > 100) {
    my $newpdf = PDF::API2->new;
    printf " (%d pages)\n", $oldpdf->pages;
    for my $page_nb (1..10) {
        $newpdf->importpage($oldpdf, $page_nb);
    }
    $newpdf->saveas("_$file");
}

[download]

I'm running this on Windows (Windows 7 for my desktop, Windows 2008/2012 for the servers) with a Strawberry Perl 5.14 and PDF::API2 module installed using cpan.bat

It's working and used for weeks now without trouble until this week. With a pdf received a few days ago, the script output is a 100 blank pages document.

I tried using the alternative with importPageIntoForm by snoopy from http://www.perlmonks.org/?node_id=615492 with the same result.

I also tried another tool (sejda) and the pages are correctly extracted so it's probably an issue with PDF::API2 or a misconfiguration but I don't know what to add/change in the script.

FYI, the sejda command line:

sejda-console.bat extractpages -f SOURCE.PDF -o TARGET.PDF -s 1-100

Any idea/alternative I could try? I'd like to keep the Perl as this is only a small part of a bigger script, but if I have no other option, I'll use sejda for the split.

Unfortunately, I cannot provide the PDF :(

Thank you

Edit : I just found and tried with CAM::PDF using the following code and it's working!

For what I've seen, the difference between both code is that PDF::API2->import_page function tries to copy the content of the pages where CAM::PDF->extractPages function removes the pages outside the given range. Maybe there is a similar method in PDF::API2 but I couldn't find it yet?

use strict;
use warnings;
use CAM::PDF;
#...some code here...
#for testing purpose:
my $file='path_to_some.pdf';
#

my $oldpdf = CAM::PDF->new($file) or die "$CAM::PDF::errstr\n";
if ($oldpdf->numPages() > 100) {
    printf " (%d pages)\n", $oldpdf->numPages();
    $oldpdf->extractPages(1..100);
    $oldpdf->cleanoutput("_$file");
}

[download]

In reply to blank pdf generated using PDF::API2 by lennelei

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.