मैं पर्ल से पीडीएफ टेबल कैसे बना सकता हूं?

Question

क्या प्रत्येक सेल में खाली सामग्री के साथ दी गई पंक्तियों और स्तंभों के साथ निर्दिष्ट स्थिति में पीडीएफ में एक टेबल खींचने के लिए कोई पेर्ल मॉड्यूल है?

Answer 1

दो दिमाग में आते हैं:

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

मैं तो जैसे पीडीएफ :: तालिका का उपयोग कर एक साधारण तालिका का उत्पादन

और इस तरह पीडीएफ :: रिपोर्ट :: टेबल के साथ:

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