view release on metacpan or  search on metacpan

12567834  view on Meta::CPAN

$p2a = $p2 - $pr + 1 ; 
my $q = ($p2a-$p1) / 4 ; 

my @P0 = () ; 
my @P1 = () ; 
my $p = $p1 ;
my $o0 = ''  ; # 出力文字列　仮格納
my $o1 = ''  ; # 出力文字列
my $L = 0 ; # 出力した行数

sub M ($) ; 
* M = ($o{b} // 1 ) eq 1 ? sub ($) { $_[0] } : sub ($) { ( $_[0] - 1 ) * $o{b} + 1 } ; 
* con = $o{','} ? sub { map { M $_ } $_[0] .. $_[1] } : sub { ( M $_[0] ) . '-' . ( M $_[1] ) } ; # 関数を定義。-でつなげるか、,でつなげるか
* con2 = sub { $p2a < $p2 ? join "," , con ($p2a,$p2)  : "$p2" } ;

if ( $o{p} ) {
  my @P ; 
  my $out = "pdftk INPUT.pdf cat " ; 
  $p=$p1-1;splice @P,@P/2,0,$p+1..($p+=4)for 1..$q;$out .= join" ",@P ;
  $out .= " output OUTPUT.pdf" ;
  say $out ;