jpgを繋げてpdfを作ってみる。
やってみた。
use strict; use warnings; use PDF::API2; opendir ( DIR, '.' ); my @page = sort grep { /\.jpg$/ } readdir ( DIR ); closedir ( DIR ); my $pdf = PDF::API2->new(-twocolumnright=>1); $pdf->mediabox("B5"); # 501x709 foreach my $jpg ( @page ) { my $img = $pdf->image_jpeg($jpg); my $width = $img->width; my $height = $img->height; my $page = $pdf->page(); my $gfx = $page->gfx; $gfx->image($img, 0, 0, 709 / $height); } $pdf->saveas('out.pdf');
"-twocolumnright"属性を指定するだけでいいっぽいな。うん。