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

> Perl (34) - Formátování výstupu - formáty

Formát je dalším nástrojem pro tisk formátovaných dat.

23.5.2006 06:00 | Jiří Václavík | Články autora | přečteno 15738×

Formáty slouží opět k vytváření výstupů podle šablony. Oproti printf se užívají zejména pro šablony větších rozsahů, kdy je užití formátů nejen přehlednější, ale i jednodušší.

Abychom mohli formáty používat, musíme ze všeho nejdříve definovat šablonu, kterou potom můžeme libovolněkrát použít.

Definice šablony

Šablona se definuje klíčovým slovem format. Jeho syntaxe obsahuje název formátu, uvozující rovnítko, masky, hodnoty a ukončující tečku.

format NAZEV =
formátovací_řetězec1
hodnoty1
formátovací_řetězec2
hodnoty2
...
.

Nezadáte-li název, implicitně se použije název cíle dat - v našem případě většinou STDOUT.

Formátovací řetězec se skládá z prvků, které začínají znakem @. Může obsahovat i text. Zde jsou znaky, které lze používat:

Znak formátovacího řetězceVýznam
@začíná položku hodnoty
^začíná položku postupně vkládané hodnoty
>zarovnání doprava
<zarovnání doleva
|zarovnání na střed
...zobrazí ..., pokud se nevešel celý řetězec
#zobrazování čísel, ale pokud je uveden jako 1. znak řádku, pak se bere jako začátek komentáře. Implicitně se zarovnává doprava
0zarovnání nulami zleva
.desetinná tečka
~nebudou vytištěny prázdné řádky
~~vypisuje text po řádcích
@*vypisuje libovolně dlouhý text
^*vypisuje libovolně dlouhý řádek textu

Abychom si lépe ujasnily význam těchto znaků, vyjádříme z nich několik konkrétních vzorů. Jak se můžete z tabulky přesvědčit, je jejich vytváření intuitivní.

Formátovací řetězecVýznam
@<<<<prvních 5 znaků (zavináč také zastupuje znak) zadaného textu, zarovnání doleva
@>>>>>>>>>hodnota zarovnaná doprava
@>>>>>>>>>...hodnota zarovnaná doprava, pokud se nevejde, končí třemi tečkami
@|||||||||centrovaná hodnota
@###.##desetinné číslo ve tvaru xxxx.xx, zleva případně doplněné mezerami
@0##.##desetinné číslo ve tvaru xxxx.xx, zleva případně doplněné nulami
@*libovolně dlouhý řetězec

Jako ukázku si napíšeme pro začátek jednoduchou šablonu. Bude tisknout prvních 20 znaků z dané proměnné. Text přitom bude vycentrován uvnitř hranatých závorek.

format =
[@|||||||||||||||||||]
$text
.

Aplikace šablony

Data zobrazíme funkcí write, které můžeme předat jako parametr ovladač, kam se budou data posílat. Ovladač je zde svázán se jménem šablony. Důsledkem toho je, že použijeme-li pro výstup funkci write, bude vytištěn záznam podle příslušného formátu.

Následujícím způsobem aplikujeme šablonu vytvořenou výše.

$text = "centrovaný text";
write;

format =
[@|||||||||||||||||||]
$text
.

Pokud používáme jiný formát než STDOUT a chceme tisknout na STDOUT, musíme ještě před tiskem nastavit proměnnou $~. V té je uchováván implicitně používaný formát.

$~ = "DATA";
$text = "centrovaný text";
write;

format DATA =
[@|||||||||||||||||||]
$text
.

Příklad užití

Pokusme se ještě o jeden příklad. Vytvoříme formátovaný kurzový lístek. Data, uložená v hashi, vypíšeme pomocí cyklu. Každou jeho iteraci bude volán příkaz write;.

my($mena, $cena);
my %kurzy = (
    "Austrálie AUD" => 17.283,
    "Čína CNY" => 2.808,
    "Dánsko DKK" => 3.8,
    "EMU EUR" => 28.335
);

foreach my $key (keys %kurzy){
    $mena = $key;
    $cena = $kurzy{$key};
    write;
}

format =
Měna: @<<<<<<<<<<<<<< Cena v korunách: @####.##
      $mena,                           $cena
.

Výstup se nám přesně podle šablony zformátuje. Nutno však poznamenat, že na takto jednoduchý příklad by stačila i funkce printf.

Rozdělení textu do více řádků

Výměnou @ za ^ lze dosáhnout rozdělení obsahu proměnné na více řádků s pevnou délkou. Zároveň jsou zachovávány slova, je-li to možné. Zvolme například 15 znaků jako délku řádku.

$text = "Nějaký text, který chceme rozdělit na více částí.";
write;

format =
[^||||||||||||||]
$text
.

To ještě není rozdělení, ale pouze odříznutí všeho, co je za 15. znakem.

$ perl format.pl
[ Nějaký text, ]
$

Nyní provedeme skutečné rozdělení.

$text = "Nějaký text, který chceme rozdělit na více částí.";
write;

format =
[^||||||||||||||]
$text
[^||||||||||||||]
$text
[^||||||||||||||]
$text
[^||||||||||||||]
$text
[^||||||||||||||]
$text
.

Text je úspěšně rozdělen.

$ perl format.pl
[ Nějaký text, ]
[ který chceme ]
[ rozdělit na ]
[ více částí. ]
[ ]
$

Sice jsme dosáhli cíle, nicméně za vysokou daň. Sami asi ze zdrojového kódu vidíte, že takto postupovat nelze. Celý formát je navržen absolutně nepružně. Tento problém však elegantně vyřešíme pomocí již zmíněné sekvence ~~.

$text = "Nějaký text, který chceme rozdělit na více částí.";
write;

format =
[^||||||||||||||]~~
$text
.

Nyní již není omezena délka textu, protože se automaticky vytvoří potřebný počet řádků.

Poznámka - Perl implicitně neláme slova. Pokud však příkazem

$: = "";

nastavíme, že lámat lze všude, dostaneme následující výstup.

$ perl format.pl
[Nějaký text, kt]
[erý chceme rozd]
[ělit na více čá]
[ stí. ]
$

Výpis řádků s odsazením

Sekvenci ~~ lze užít mimo předchozího i k dalším účelům. Níže uvedený kód vypisuje seznam, jehož položky jsou přehledně pod sebou.

$text = "1. položka\n2. položka\n3. položka\n4. položka\n";
write;

format =
Seznam: ^*
        $text
        ^* ~~
        $text
.

Nejprve je vypsán 1. řádek textu za řetězcem Seznam:, poté se vypíše o řádek níž další a protože je uvedeno ~~, bude se to opakovat, dokud bude nějaký řádek k dispozici.

Je nutné si uvědomit, že ^* ve vzoru zastupuje 1. položku (resp. řádek) a ^* ~~ postupně všechny ostatní položky.

Položky se nám tak srovnají pod sebe, což můžeme vidět na výstupu.

$ perl format.pl
Seznam: 1. položka
        2. položka
        3. položka
        4. položka
$

Zápis formátovaného textu do souboru

Při přesměrování výstupu do souboru ovladač souboru pojmenujeme stejně jako je název formátu. Parametrem write potom musí být název ovladače. Zapíšeme do souboru tabulku, obsahující 1., 2., 3., 4. a 5. mocniny čísel 0-20.

open FILE, ">soubor";

for ($x=0; $x<=20; $x++){
    write FILE; #totéž co select FILE; write;
}

close FILE;

format FILE =
@######## @######## @######## @######## @########
$x,       $x**2,    $x**3,    $x**4,    $x**5
.

Hlavičky

Dosud jsme produkovali šablony, které mají značnou nevýhodu. Nelze jim vložit hlavičky. To je u různých tabulek nebo sloupcových výčtů nezbytné. Ještě než se začne aplikovat šablona, potřebujeme aby se automaticky aplikovala šablona hlavičky.

Perl nabízí následující řešení. Máme formát TABULKA. Vytvoříme další formát s názvem TABULKA_TOP, který bude obsahovat právě formát hlavičky. Příkazem write; se nyní jednou provede hlavička a poté se vypisují už jen data. Platí, že je-li definován formát NÁZEVFORMÁTU_TOP, je aplikován jako hlavička formátu NÁZEVFORMÁTU.

Poslední příklad na zápis tabulky do souboru trochu rozšíříme. Přidáme do něj hlavičku tak, že vytvoříme formát FILE_TOP.

format FILE_TOP =
@>>>>>>>> @>>>>>>>> @>>>>>>>> @>>>>>>>> @>>>>>>>>
"x",       "x^2",     "x^3",     "x^4",     "x^5"
-------------------------------------------------
.

Patičky

Definice patiček je o něco složitější. Je nutné nastavit 2 speciální proměnné. Proměnná $= specifikuje po kolika vypsaných řádcích (do kterých se počítají i řádky hlavičky) bude pata vypisována. V proměnné $^L je pak samotný obsah patky.

Je-li tedy v proměnné $= hodnota 10, každých 10 řádků výstupu formátu se vypíše patka, poté znovu hlavička a dál pokračují data. Po vypsání dat je ale nutné ještě zvlášť vypsat hlavičku, aby na poslední straně nechyběla.

$= = 10;
$^L = "---------KONEC---------\n\n";

for ($x=0; $x<=50; $x++){
    write; #totéž co select FILE; write;
}
print $^L;

format =
Řádek: @<
       $x
.

format STDOUT_TOP =
----ZAČÁTEK STRANY----
.

Je zde jeden nedostatek. Pata na poslední straně může být klidně třeba v polovině stránky. My bychom ale chtěli každou patku přesně na konec strany (tedy na stejné místo jako na ostatních stranách). To obnáší vynechat nějaký proměnný počet řádků. A právě počet řádků, které zbývají do konce strany, je uložen v proměnné $-. Řádek print $^L; nahradíme za:

print "\n" x $- . $^L;

Stránkování

V proměnné $% je vždy uloženo aktuální číslo strany. Změníme hlavičku tak, aby ho obsahovala. Formát STDOUT_TOP bude vypadat takto:

format STDOUT_TOP =
---ZAČÁTEK STRANY @<--
                  $%
.

Příště začneme debugging.

Verze pro tisk

pridej.cz

 

DISKUZE

Nejsou žádné diskuzní příspěvky u dané položky.



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

13.9.2017 8:00 /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 – tentokrát netradičně v pondělí: 18. září od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).


Přidat komentář

3.9.2017 20:45 /Redakce Linuxsoft.cz
PR: Dne 21. září 2017 proběhne v Praze konference "Mobilní řešení pro business". Hlavní tématy konference budou: nejnovější trendy v oblasti mobilních řešení pro firmy, efektivní využití mobilních zařízení, bezpečnostní rizika a řešení pro jejich omezení, správa mobilních zařízení ve firmách a další.
Přidat komentář

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ář

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

> Poslední diskuze

18.9.2017 14:37 / Rojas
high security vault

15.9.2017 7:33 / Wilson
new zealand childcare jobs

31.8.2017 12:11 / Jaromir Obr
Re: ukůládání dat ze souboru

30.7.2017 11:12 / Jaromir Obr
Národní znaky

27.7.2017 12:24 / Jaromir Obr
Cteni/zapis

Více ...

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