Kawaninon.com

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

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

PerlモジュールのPDF::API2を使用して、A6サイズのPDFファイルを出力しました。文庫本等に採用されている横幅105mm高さが148mmの規格で、持ち運びに長けているのが特徴です。)

#!/opt/local/bin/perl
 
use strict;
use warnings;
use PDF::API2;
 
my $pdf = PDF::API2->new();
my $page = $pdf->page();
$page->mediabox("A6");
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("A6");
$text->cr("-24");
$text->text("105mm x 148mm");
 
print "Content-type: application/pdf; charset=utf-8\n\n";
print $pdf->stringify();
 
exit;

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

スポンサーリンク

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

QRコード

QR Code