jpgを繋げてpdfを作ってみる。

Perl 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 …

2013-01-23

jpgを繋げてpdfを作ってみる。2

Perl pdf

jpgを繋げてpdfを作ってみる。 - 永字八法の続き。これを実行したディレクトリにあるzipの中のjpgを全部pdfにする。 use strict; use warnings; use Archive::Zip; use PDF::API2; opendir ( DIR, '.' ); my @zip = sort grep { /\.zip$/i } readdir ( DIR …

2013-01-23

jpgを繋げてpdfを作ってみる。

Perl 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 …

2013-01-23

jpgを繋げてpdfを作ってみる。2

Perl pdf

jpgを繋げてpdfを作ってみる。 - 永字八法の続き。これを実行したディレクトリにあるzipの中のjpgを全部pdfにする。 use strict; use warnings; use Archive::Zip; use PDF::API2; opendir ( DIR, '.' ); my @zip = sort grep { /\.zip$/i } readdir ( DIR …

2013-01-23

jpgを繋げてpdfを作ってみる。2

Perl pdf

jpgを繋げてpdfを作ってみる。 - 永字八法の続き。これを実行したディレクトリにあるzipの中のjpgを全部pdfにする。 use strict; use warnings; use Archive::Zip; use PDF::API2; opendir ( DIR, '.' ); my @zip = sort grep { /\.zip$/i } readdir ( DIR …

2013-01-23

jpgを繋げてpdfを作ってみる。

Perl 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 …