電線の画像

Pointgets.net

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

PDFファイルにTableをPDF::Tableで生成

PerlモジュールのPDF::Tableを使用して、PDFファイルにTableを出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use PDF::API2;
use PDF::Table;
 
my $pdf = PDF::API2 -> new();
my $page = $pdf -> page();
$page -> mediabox("A4");
my $table = PDF::Table -> new();
 
my $data = [
	["A-1","A-2","A-3"],
	["B-1","B-2","B-3"],
	["C-1","C-2","C-3"]
];
 
$table -> table(
	$pdf,
	$page,
	$data,
	x => 50,
	w => 495,
	start_y => 750,
	next_y => 700,
	start_h => 300,
	next_h => 500,
	font => $pdf -> corefont("Helvetica",-encoding => "utf8"),
	font_size => 14,
	font_color => "#000000",
	justify => "center",
	padding_top => 10,
	padding_bottom => 14
);
 
print "Content-type: application/pdf; charset=utf-8\n\n";
binmode(STDOUT);
print $pdf -> stringify();
 
exit;

サンプルコードです。

出力結果です。

スポンサードリンク
スポンサードリンク