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;