Kawaninon.com

写真やサンプルプログラムなど、
日々の気になった出来事をメモしてる個人的なブログです。

A5サイズのPDFファイルをPerlモジュールのPDF::API2で生成

PerlモジュールのPDF::API2を使用して、A5サイズのPDFファイルを出力しました。ノートや冊子等に採用されている横幅148mm高さが210mmの規格で、A4サイズに比べて持ち運びに長けているのが特徴です。)

#!/opt/local/bin/perl
 
use strict;
use warnings;
use PDF::API2;
 
my $pdf = PDF::API2->new();
my $page = $pdf->page();
$page->mediabox("A5");
my $font = $pdf->cjkfont("KozMin", -encode => "utf-8");
my $text = $page->text();
$text->font($font, 16);
$text->fillcolor("#FF0000");
$text->translate(10, 380);
$text->text("A5");
$text->cr("-24");
$text->text("148mm x 210mm");
 
print "Content-type: application/pdf; charset=utf-8\n\n";
print $pdf->stringify();
 
exit;

サンプルコードと出力結果です。A5サイズのPDFファイルを出力しました。cjkfontでフォントを小塚明朝、fontでフォントのピクセルサイズ、fillcolorでフォントの色、translateで描画を開始する左下からの座標、textで描画する文字列、crで改行をフォントサイズの1.5倍に設定しています。

スポンサーリンク

これらを使ってサイトを運用しています

QRコード

QR Code