PDFJモジュールを使って、Perlから直接PDFファイルを出力しよう

Perl から直接 PDFファイルが出力できたら、何かできるかなぁ？と、思っていろいろ調べてたんですが、PDFJ ってモジュールが良さげだったので、早速試してみました。

作った人が日本人ということもあり、詳細な日本語のドキュメントが用意されていているのも、ありがたいところです。

インストールは作者さんのページからZIPファイルをダウンロードして行います（CPANには登録されていないので）。古いバージョンもダウンロード可能になっていますが、ここは最新バージョンの0.90（2010年1月19日現在）を使わせてもらうことにします。

ZIPファイルを解凍した中の Makefile.PL を使ってインストールするのが簡単ですが、PDFJ.pm と PDFJディレクトリをモジュール検索パスの通っているディレクトリ（例、c:\perl\lib）にコピーするだけでもＯＫです。

次にPDFJモジュールが使用する TeX::Hyphenモジュールと Compress::Zlibモジュールを、CPANからインストールします(ActivePerlのPPMでもいけます)。これで準備は完了です。

ざっくりマニュアルを読んだ感じでは、画像の埋め込みや様々なレイアウトはもちろん、パスワードの設定や暗号化（Digest::MD5モジュールが必要）、各種文字コードへの対応と、おおよそ必要なことは全部できる感じです。

そんなわけで、テキストファイル（文字コード：EUC、改行コード：LF、ファイル名：sample.txt）を読み込んで、文庫ライクなレイアウト（42字17行）の縦書きなPDFファイルを作成するプログラムを作ってみました。

#!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use PDFJ 'EUC'; # 用紙の設定( 1pt = 0.35278mm で計算) my $PaperW  = 298;  #文庫の横(105mm) my $PaperH  = 420;  #文庫の縦(148mm) my $PaperSU =  42;  #上余白(15mm) my $PaperSD =  28;  #下余白(10mm) my $PaperSR =  28;  #右余白(10mm) my $PaperSL =  34;  #左余白(12mm) my $iWidth  = $PaperW - $PaperSR - $PaperSL; #印刷可能幅 my $iHeight = $PaperH - $PaperSU - $PaperSD; #印刷可能高 # フォントサイズとラインフィードの設定 my $fSize    = 8;     #フォントサイズ my $linefeed ='170%'; #ラインフィード # pdfオブジェクトを作成 my $pdfDoc = PDFJ::Doc->new( 1.3, $PaperW, $PaperH); # PDF ver1.3 # フォントオブジェクトを作成 my $oFont = $pdfDoc->new_font('Ryumin-Light', 'EUC-V', 'Times-Roman'); # テキストスタイルオブジェクトを作成 my $oTextStyle = TStyle(font => $oFont, fontsize => $fSize); # 段落スタイルのオブジェクトを作成 my $oPStyle  = PStyle(size=>$iHeight, linefeed=>$linefeed, align=>'b', postskip=>0); # テキストファイルの読み込み open(FH, "<", "sample.txt"); my @lines  = <FH>; close(FH); # 文ごとに段落の配列を作成 my @Paragraphes = (); for my $line (@lines){   chomp($line);   $line = encode('eucjp', '　') unless $line;   my $oTexe = Text($line, $oTextStyle);   push @Paragraphes, Paragraph($oTexe, $oPStyle); } # 段落の配列をブロックにまとめる my $oBlock = Block('R', \@Paragraphes, BStyle()); # ブロックをページ毎に分割してページに割り付ける for my $oB ($oBlock->break($iWidth)) {   my $oPage = $pdfDoc->new_page();   $oB->show($oPage, $iWidth+$PaperSL, $iHeight+$PaperSD, 'rt'); } # PDFを出力 $pdfDoc->print('sample.pdf');

参照リンク
　・中島 靖（作者さんのページ）
　・PDFJ - 日本語PDF生成モジュール（マニュアルページ）
　・PDFJの使い方 - Magical Diary, beta version
　・第5回　ExcelファイルとPDFファイルの作成 - Perl入門：ITpro