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"属性を指定するだけでいいっぽいな。うん。