Kawaninon.com

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

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

PerlモジュールのPDF::API2を使用して、B0サイズのPDFファイルを出力しました。)

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

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

スポンサーリンク

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

QRコード

QR Code