Perl 重新排列PDF文件中的数据

我正在使用Perl生成一个带有 模块

我难以将数据以所需格式写入文件

目前，这是它在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

数据进行修改，但是如何修改？

PDF:：Table函数将“一个或多个数组”作为其第三个参数。您当前的结构如下所示：

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

每个嵌套数组（在

[]

括号内）都是表的新行，该数组的元素是该行的单元格。因此，您希望它结构化：

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

要使用

%数据构建它，请执行以下操作：

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
}

谢谢你，比西。如何在不同的表中打印数据，而不是在同一个表中用---分隔数据。在每个循环中创建一个新的
PDF:：table