Separa un PDF in due files in base a step.

estraibollettini.pl

#!/usr/bin/perl

use strict;
use warnings;
use PDF::API2;

my ($pdf, $step) = @ARGV;

if (not defined $pdf) {
  die "Need file name\n";
}

if (not defined $step) {
  die "Need steps\n";
}

my $file = PDF::API2->open($pdf);
my $pag  = $file->pages();

my @range=(1..$pag);

my $cmd_lettere    = "pdftk ${pdf} cat ";
my $cmd_bollettini = "pdftk ${pdf} cat ";

foreach(@range){
	if($_%$step == 1){
		$cmd_lettere .= "$_ ";
	}
}

foreach(@range){
	if($_%$step != 1){
		$cmd_bollettini .= "$_ "
	}
}

$pdf =~ s/\.pdf$//;

$cmd_lettere    .= "output ${pdf}-lettere.pdf";
$cmd_bollettini .= "output ${pdf}-bollettini.pdf";

print "\n$cmd_lettere\n\n$cmd_bollettini\n";