Perl'den PDF tablolarını nasıl yapabilirim?

Question

Belirli bir satırda ve her hücrede boş bir içeriğe sahip sütunlarla belirtilen konumda pdf'de bir tablo çizmek için perl modülleri var mı?

Answer 1

İki akla gelen:

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

ben şöyle PDF :: Tablo kullanarak basit bir tablo üretti

Ve böyle bir PDF :: Rapor :: Tablo ile:

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');