-2
我正在使用Perl来生成带有 PDF::API2
模块的PDF文件。重新排列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
数据,但是如何?
谢谢@beasy。 如何打印在不同的表中的数据,而在同一个表中显示它与分离了 - - 。 – vinodk89
在每个循环中创建一个新的“PDF :: Table” – beasy