如何從Perl製作PDF表格？

Question

是否有任何perl模塊可以在指定的位置繪製pdf格式的表格，給定的行和列以及每個單元格中的空白內容？

Answer 1

兩個浮現在腦海中：

use PDF::API2; 
use PDF::Table; 

my $pdf = PDF::API2->new(-file => 'table.pdf'); 
my $table = PDF::Table->new; 
my $page = $pdf->page; 

my $data = [ 
    [ 'A1', 'A2', 'A3' ], 
    [ 'B1', 'B2', 'B3' ], 
    [ 'C1', 'C2', 'C3' ], 
]; 

$table->table($pdf, $page, $data, 
       x  => 50, 
       w  => 495, 
       start_y => 750, 
       next_y => 700, 
       start_h => 300, 
       next_h => 500, 
); 

$pdf->save; 

：

• PDF::Table
• PDF::Report::Table

我使用PDF ::表像這樣製作一個簡單的表

並與PDF ::報告::像這樣的表：

use PDF::Report; 
use PDF::Report::Table; 

my $pdf = PDF::Report->new(PageSize => 'A4', PageOrientation => 'Portrait'); 
my $table = PDF::Report::Table->new($pdf); 

my $data = [ 
    [ 'A1', 'A2', 'A3' ], 
    [ 'B1', 'B2', 'B3' ], 
    [ 'C1', 'C2', 'C3' ], 
]; 

$pdf->openpage; 
$pdf->setAddTextPos(50, 50 ); 
$table->addTable($data, 400); # 400 is table width 

$pdf->saveAs('table.pdf');