Dar vieno analitiko svetainė

Petras Kudaras

Straipsnis apie PDF generavimą su PHP

Webmonkey turi gana neblogą straipsniuką apie PDF generavimą su PHP. Tiesa, pusė to straipsnio yra apie įdiegimą (kuris pasirodo yra baisiai sudėtingas), o kita — apie jo vartojimą.

Skaitant tą straipsnį iškilo man mintis ar Perle irgi taip įmanoma padaryti. Trumpas apsilankymas pas CPAN, perl -MCPAN -e ‘install PDF::Create’ ir jau turiu modulį PDF generavimui Perle. Štai Perlinis kodas, sugeneruojantis PDF dokumentą (pavyzdį galit matyti čia):

#!/usr/bin/perl
use strict;
use PDF::Create;
my $pdf = new PDF::Create('filename' => 'out.pdf',
                          'Version'  => 1.2,
                          'PageMode' => 'UseOutlines',
                          'Author'   => 'moxliukas',
                          'Title'    => 'Testas');
my $root = $pdf->new_page('MediaBox' => [0, 0, 612, 792]);
my $page = $root->new_page;
my $f1 = $pdf->font('Subtype'  => 'Type1',
                       'Encoding' => 'WinAnsiEncoding',
                       'BaseFont' =>'Helvetica');
$page->stringc($f1, 40, 306, 426, "Petras Kudaras");
$pdf->close;