LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (112) - Práce s PDF

PerlPodívejme se na několik základních postupů, jak lze vytvářet a modifikovat PDF dokumenty.

2.7.2010 00:00 | Jiří Václavík | Články autora | přečteno 7486×

PDF patří dnes mezi nejrozšířenější formáty pro distribuci textových dokumentů. Jednou z vlastností PDF je to, že je obtížné ho jakkoliv modifikovat. Co kdybychom chtěli rozeslat dopisy stejné až na záhlaví, které bychom vygenerovali pro každý dokument individuálně podle nějaké databáze? Určitě můžeme použít TeX. Ale moc jiných nástrojů nemáme. Podívejme se, jak bychom mohli postupovat při řešení podobných problémů v Perlu. Jako úvod do studia probereme některé základní operace pro manipulaci s PDF.

Pro manipulaci s PDF soubory je třeba využít některého z dostupných modulů. Za všechny můžeme jmenovat například PDF::Reuse, PDF::API2 a Text::PDF.

PDF::Reuse je velmi rychlý modul a ho výhodně použijeme zejména tam, kde je potřeba vyprodukovat větší množství podobných PDF dokumentů - typicky například sadu dopisů, které se liší adresou v hlavičce.

Vytváření PDF dokumentů

Funkcí prFile definujeme výstupní soubor a pomocí prEnd práci ukončíme. Mezi tyto dva příkazy pak budeme zapisovat další kód, který určí, co bude na výsledné stránce. Tedy pro začátek vytvoříme program, jež po spuštění vygeneruje prázdný pdf soubor. Kód bude vypadat následovně.

use PDF::Reuse;

prFile("blank.pdf");
prEnd();

Text

Dalším úkolem bude vypisování nějakého obsahu do dokumentu. Funkcí prText lze do výsledného souboru zapsat text. prText přijímá mimo řetězce také souřadnice - tím jsou myšleny vzdálenosti od levého a od dolního okraje stránky.

Takto vypadá kód, který vygeneruje PDF soubor s nějakým textem.

prFile("text.pdf");
prText(50,800,"Text");
prEnd();

S textem můžeme provádět různé akce. Například rotovat.

prText(200, 200, " Rotace o 0","", 0);
prText(200, 200, " Rotace o 60","", 60);
prText(200, 200, " Rotace o 120","", 120);
prText(200, 200, " Rotace o 180","", 180);
prText(200, 200, " Rotace o 240","", 240);
prText(200, 200, " Rotace o 300","", 300);

Pomocí funkce prPage můžeme zalomit stránku a pokračovat na nové. Potom padesátistránkový dokument s očíslováním stran vytvoříme takto.

  use strict;
  use PDF::Reuse;

  prFile("text.pdf");

  for $_ (1..50) {
      prText(500, 800, $_);

      prText(50,740,"text 1");
      prText(50,720,"text 2");
      prText(50,700,"text 3");
      prText(50,680,"text 4");

      prPage();
  }

  prEnd();

Pro formátování textu existují následující funkce. prFont nastavuje písmo a jako hodnoty lze užít například Times-Roman, Courier, Helvetica. Velikost písma lze měnit funkcí prFontSize.

Grafika

Dále lze použít prAdd pro "nízkoúrovňové" instrukce. Těmi se nebudeme dále zabývat, jen si uvedeme příklad, který vykreslí zelený obdélník.

prAdd("50 700 160 100 re\\n0 1 0 rg\\nb\\n");

K umístění nějakého objektu je třeba zadat souřadnice.

Pro představu se podívejme, jak takové dokumenty mohou vypadat.

Ukázka vygenerovaného dokumentu

Vkládání obrázků

Pomocí prJpeg, prImage atd. lze vkládat již hotové obrázky. Obvykle potřebujeme znát jeho rozměry. Ty můžeme zjistit například pomocí modulu Image::Info. Zde je příklad, který vytvoří vysledek.pdf, který obsahuje předem určený obrázek.

$jpg = "foto.jpg";
$sirka = 400;
$vyska = 300;

prFile("vysledek.pdf");
$int = prJpeg($jpg, $sirka, $vyska);
prAdd("q\\n$sirka 0 0 $vyska 10 10 cm\\n/$int Do\\nQ\\n");
prEnd();

Spojování PDF dokumentů

Podívejme se na trochu jinou úlohu. Máme-li několik PDF dokumentů, ze kterých potřebujeme udělat jediný, nebo pokud chceme udělat z jednoho souboru několikastránkový výřez, pak zde máme funkci prDoc. Ta do výstupního souboru vytiskne příslušný rozsah z vybraného dokumentu. Ukažme si, jak bychom vytvořili dokument, sestávající se z prvních pěti stránek souboru text.pdf, kompletního obsahu blank.pdf a stránky 7 opět z text.pdf.

prFile("vysledek.pdf");

prDoc("text.pdf",1,5);
prDoc("blank.pdf");
prDoc("text.pdf",7);

prEnd();

Modifikace PDF dokumentů

Hlavním využitím modulu PDF::Reuse je hromadná práce s již existujícími dokumenty. Díky němu můžeme relativně jednoduše modifikovat PDF soubory a provádět takové věci jako je přidání čísla stránky nebo hlaviček dopisů.

Pojďme se podívat na tu druhou úlohu. Nechť máme v souboru adresy kontakty v následujícím formátu.

jméno[TAB]adresa[TAB]město[TAB]psč

A dále máme dopis.pdf který chceme každému z nich poslat. Naším úkolem bude vytvořit sadu dopisů, ke kterým navíc vzhledem k dopis.pdf přidáme pro každého člověka vygenerovanou hlavičku s adresou.

Vše spočívá v použití funkce prForm, které předáme PDF soubor, jež bude šablonou (pozadím) pro vytvářené dokumenty. Implementace našeho problému tak bude vypadat následovně.

prFile("vysledek.pdf");
prForm("dopis.pdf");

my $fr;
open($fr, "adresy") or die;

while (<$fr>)  {
      my($jmeno, $adresa, $mesto, $psc) = split /\\t/;
      prText(50, 800, $jmeno);
      prText(50, 785, $adresa);
      prText(50, 770, "$psc $mesto");
      prPage()
}
prEnd();
close $fr;

Verze pro tisk

pridej.cz

 

DISKUZE

Pochvala a dotaz 5.7.2010 16:15 Zdenek Ruzicka




Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

15.5.2017 23:50 /František Kučera

Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 18. května od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).


Přidat komentář

12.5.2017 16:42 /Honza Javorek
PyCon CZ, česká konference o programovacím jazyce Python, se po dvou úspěšných ročnících v Brně bude letos konat v Praze, a to 8. až 10. června. Na konferenci letos zavítá např. i Armin Ronacher, známý především jako autor frameworku Flask, šablon Jinja2/Twig, a dalších projektů. Těšit se můžete na přednášky o datové analytice, tvorbě webu, testování, tvorbě API, učení a mentorování programování, přednášky o rozvoji komunity, o použití Pythonu ve vědě nebo k ovládání nejrůznějších zařízení (MicroPython). Na vlastní prsty si můžete na workshopech vyzkoušet postavit Pythonem ovládaného robota, naučit se učit šestileté děti programovat, efektivně testovat nebo si v Pythonu pohrát s kartografickým materiálem. Kupujte lístky, dokud jsou.
Přidat komentář

2.5.2017 9:20 /Eva Rázgová
Putovní konference československé Drupal komunity "DrupalCamp Československo" se tentokrát koná 27. 5.2017 na VUT FIT v Brně. Můžete načerpat a vyměnit si zkušenosti z oblasti Drupalu 7 a 8, UX, SEO, managementu týmového vývoje, využití Dockeru pro Drupal a dalších. Vítáni jsou nováčci i experti. Akci pořádají Slovenská Drupal Asociácia a česká Asociace pro Drupal. Registrace na webu .
Přidat komentář

1.5.2017 20:31 /Pavel `Goldenfish' Kysilka
PR: 25.5.2017 proběhne v Praze konference na téma Firemní informační systémy. Hlavními tématy jsou: Informační systémy s vlastní inteligencí, efektivní práce s dokumenty, mobilní přístup k datům nebo využívání cloudu.
Přidat komentář

15.4.2017 15:20 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě IoT a radiokomunikace? Přijď na sraz spolku OpenAlt, který se bude konat ve středu 19. dubna od 18:30 v Šenkovně (Sokolská 60, Praha 2).
Přidat komentář

5.3.2017 19:12 /Redakce Linuxsoft.cz
PR: 23. března proběhne v Praze konferenci na téma Cloud computing v praxi. Hlavními tématy jsou: Nejžhavější trendy v oblasti cloudu a cloudových řešení, Moderní cloudové služby, Infrastruktura současných cloudů, Efektivní využití cloudu, Nástrahy cloudových řešení a jak se jim vyhnout.
Přidat komentář

27.2.2017 22:12 /František Kučera
Pozvánka na 137. sraz OpenAlt – Praha: Tentokrát jsme si pro vás připravili neobvyklou akci. Ve středu 1.3. v 17:30 nás přivítá sdružení CZ.NIC ve svých prostorách v Milešovské ulici číslo 5 na Praze 3, kde si pro nás připravili krátkou prezentaci jejich činnosti. Následně navštívíme jejich datacentrum pod Žižkovskou věží. Provedou nás prostory, které jsou běžnému smrtelníkovi nedostupné!
Po ukončení prohlídky se všchni odebereme do hostince U vodoucha, Jagelonská 21, Praha 3 pochutnat si na některém z vybraných piv či dát si něco na zub. Rezervaci máme od 19:30, heslo je OpenAlt.
Ale pozor! Do prostor datového centra máme omezený přístup, dostane se tam pouze 10 lidí! Takže kdo přijde dříve, ten má přednost, a občanky s sebou! Kdo nebude chtít na prohlídku datového centra, může se pomalu přesunout do hostince U vodoucha a u nepřeberné nabídky piv počkat na ostatní.
Přidat komentář

18.1.2017 0:49 /František Kučera
Členové a příznivci spolku OpenAlt se pravidelně schází v Praze a Brně. Fotky z pražských srazů za uplynulý rok si můžete prohlédnout na stránkách spolku. Příští sraz se koná už 19. ledna – tentokrát je tématem ergonomie ovládání počítače – tzn. klávesnice, myši a další zařízení. Také budete mít příležitost si prohlédnout pražský hackerspace Brmlab.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

15.6.2017 9:34 / Ondřej Havlas
php,

10.6.2017 10:39 / Temple
sell home for cash

11.5.2017 23:32 / lelo
Re: Problém se správcem balíčků

11.5.2017 5:45 / davd mašek
Re: Problém se správcem balíčků

10.5.2017 22:54 / lelo
Re: Problém se správcem balíčků

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2017) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze