Как я могу сделать таблицы PDF из Perl?

Question

Как я могу сделать таблицы PDF из Perl?

Это означает, что $objPage не экземпляр объекта. Мы можем видеть код, Вы раньше инициализировали переменную?

, Поскольку Вы ожидаете тип конкретного объекта, можно также использовать подсказывающая типу функция PHPs Документы глоток> для получения ошибки, когда логика нарушена:

function page_properties(PageAtrributes $objPortal) {    
    ...
    $objPage->set_page_title($myrow['title']);
}

Эта функция только примет PageAtrributes для первого параметра.

5

perl pdf

задан brian d foy 16 November 2009 в 12:52

1 ответ

Другие вопросы по тегам:

perl pdf

Похожие вопросы:

score 11 · Answer 1

На ум приходят два:

Я создал простую таблицу, используя PDF :: Table, например:

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