perl - 重新排列 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::Table 函数将“数组或数组”作为其第三个参数。您目前的结构如下：

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
}