para, por ej., los libros escaneados en doble página

Este blog >>> (simpática alusión a los ejecutivos eficientes >>) recomienda un script perl, pero dice que éste al parecer requiere de PDF::API2, un módulo de Perl que se encuentra en CPAN. Por ende no es sin investigación.

#!/usr/bin/env perl
use strict; use warnings;
use PDF::API2;

my $filename = shift || 'test.pdf';
my $oldpdf = PDF::API2->open($filename);
my $newpdf = PDF::API2->new;

for my $page_nb (1..$oldpdf->pages) {
my ($page, @cropdata);

$page = $newpdf->importpage($oldpdf, $page_nb);
@cropdata = $page->get_mediabox;
$cropdata[2] /= 2;
$page->cropbox(@cropdata);
$page->trimbox(@cropdata);
$page->mediabox(@cropdata);

$page = $newpdf->importpage($oldpdf, $page_nb);
@cropdata = $page->get_mediabox;
$cropdata[0] = $cropdata[2] / 2;
$page->cropbox(@cropdata);
$page->trimbox(@cropdata);
$page->mediabox(@cropdata);
}

(my $newfilename = $filename) =~ s/(.*)\.(\w+)$/$1.clean.$2/;
$newpdf->saveas('$newfilename');

__END__

en efecto

$ ./script laboetie.pdf
Can't locate PDF/API2.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at ./script line 3.
BEGIN failed--compilation aborted at ./script line 3.

Que me disculpen los tiranosaurios pero ¿cómo se instala un módulo Perl desde CPAN?

En Debian tengo un comando

$ cpan

que después de configurarse entra como a una shell…

En todo caso me limitaré a seguir las instrucciones:

$ cpan App::cpanminus

instala ¿un compilador C? en fín, lo necesario para correr este otro comandito

$ cpanm PDF::API2

lento…

--> Working on PDF::API2
Fetching http://www.cpan.org/authors/id/S/SS/SSIMMS/PDF-API2-2.020.tar.gz ... OK
Configuring PDF-API2-2.020 ... OK
==> Found dependencies: Font::TTF
--> Working on Font::TTF
Fetching http://www.cpan.org/authors/id/M/MH/MHOSKEN/Font-TTF-1.02.tar.gz ... OK
Configuring Font-TTF-1.02 ... OK
Building and testing Font-TTF-1.02 ... OK
Successfully installed Font-TTF-1.02
Building and testing PDF-API2-2.020 ... OK
Successfully installed PDF-API2-2.020
2 distributions installed

$ ./script laboetie.pdf


El tipo de operaciones que pasaría a ruby, y SAAS…
De hecho ¿podría usar ghostsctipt? Puede parecerse a pdfcrop

Este sitio utiliza cookies.    Leer más