#acl SomeUser:read,write All: 
= Lightweight Language Lovers =
== PDF-merge.pl ==
オリジナルを# で残しています。
{{{#!cplusplus
use PDF::API2;

if(2 > scalar @ARGV) {
    print <<"EOT";
#Usage: $0 <outfile> <infile1> ... <infileN>
Usage: $0 <outfile> <infile1,from,to> ... <infileN>


merges serveral pdf files into on ;-)

cheers, 
fredo
EOT
}

my $outfile=shift @ARGV;

my $pdf=PDF::API2->new;

foreach my $in (@ARGV) {
    (my $infile, my $page_from, my $page_to) = split /,/, $in;
# insert
#   print STDERR 'loading file $in .';
    print STDERR "loading file $in .";
#   my $inpdf=PDF::API2->open($in);
    my $inpdf=PDF::API2->open($infile);
    my $pages=scalar @{$inpdf->{pagestack}};
#   foreach my $page (1..$pages) {
    foreach my $page ($page_from..$page_to) {
        print STDERR "$page.";
        $pdf->importpage($inpdf,$page);
    }
    $inpdf->end();
    print STDERR " done.\n";
}

$pdf->saveas($outfile);

__END__
}}}

 ~- オリジナルのソースファイルは改行がDOS形式なのはいいとして、なぜか最終行だけ改行が入っていません。以下のワンライナーで変換しました。
 {{{
perl -e '$/="\r\n";while (<>) {chomp;print "$_\n"}' pdf-merge.pl > new
 }}}
 -~

 . サンプルプログラムをほんの数行を直すだけで実現出来てしまいました。やっぱりPerlはストリートファイトでは最強なのかも知れません。最初、この記事のサブタイトルを、Perlの成功が数々のLLの発展の基礎になったという意味で、「LLの母」と考えていたのですが、「おかん」のほうがぴったりなのに気づきました。

----
CategoryPerl