重新排列PDF文件中的數據

Question

我正在使用Perl來生成帶有 PDF::API2模塊的PDF文件。

我很難以所需的格式將數據寫入文件。

目前，這是它如何出現在PDF文件中。

這裏是我的腳本

my %data = (
    '1' => { 
     'SEQUENCE' => '1', 
     'NAME'  => 'John', 
     'ADDR1' => 'Road 1', 
     'GRADE' => '5' 
    }, 
    '2' => { 
     'SEQUENCE' => '2', 
     'NAME'  => 'Smith', 
     'ADDR1' => 'Road 2', 
     'GRADE' => '6' 
    } 
); 

... 
... 

my @rows = qw(NAME ADDR1 GRADE); 

for my $id (sort keys %data){ 
    push @tbl, [ @{$data{$id}}{@rows} ]; 
    ($name, $addr, $grade) = ($data{$id}{'NAME'}, $data{$id}{'ADDR1'}, $data{$id}{'GRADE'}); 
} 

... 
... 

my $pdftable = new PDF::Table; 
$pdftable->table(
    $pdf, 
    $page, 
    \@tbl, 
    x => 50, 
    w => 400, 
    start_y => 630, 
    start_h => 630, 
    next_y => 630, 
    next_h => 630, 
    padding => 5, 
    border => 1, 
    padding_right => 10, 
); 
$pdf->saveas(); 

但我希望它出現這樣的：

我知道我必須做出修改@tbl數據，但是如何？

Answer 1

的PDF::Tabletable函數採用一個「陣列或多個陣列」作爲它的第三個參數。您目前有它strucutred這樣的：

my @tbl = ([$name,$addr,$grade], [...]) 

每個嵌套數組（什麼是[]括號內）是表的新行，和元素數組是行的單元格。因此，相反，你想讓它的結構：

my @tbl = (['NAME',$name], ['ADDR1',$addr], ['GRADE',$grade], [...]) 

要使用您的%data結構，它構造：

for my $id (sort keys %data) { 
    push @tbl, [$_, $data{$id}->{$_}] for qw/NAME ADDR1 GRADE/; 
    push @tbl, [qw/- -/]; # to add a blank row as a separator 
}