Perl, Formáty (38.díl)

Stránkovaný výstup

Existuje-li definice formátu se jménem, které je stejné jako jméno ovladače následované _TOP, bude tento formát použit vždy na začátku každé stránky při zápisu do tohoto ovladače. Jméno formátu pro hlavičku je obsaženo v proměnné $^ ($ FORMAT_TOP_NAME) a její modifikací je možné tento formát změnit.


Při provádění výstupu pomocí funkce „write“ se automaticky provádí stránkování. Počet řádků, kolik se vejde na stránku, obsahuje proměnná $= (FORMAT_LINES_PER_PAGE, standardně hodnota 60). V proměnné $($FORMAT_LINES_LEFT) je uložen počet řádků, které se ještě na stránku vejdou. Až je tato hodnota 0, dojde k odstránkování a při dalším použití funkce write se opět použije formát _TOP, je-li definován. Nastavením hodnoty této proměnné ručně dojde k nucenému odstránkování (jinak se hodnota této proměnné mění automaticky tak, jak provádíme výstup). V následujícím kódu je uveden příklad definice a použití začátku stránky.



// Definice formátu začátku stránky

Format STDOUT_TOP =

Vytvořeno dne: @<<<<<<<<<<<<<<<<<<<< Strana @<<<<

Aktualni_datum(), $%

+----------------+-----------------------+
| Jméno...........|Příjmení.................|
+----------------+-----------------------+

.

// Definice formátu pro jednotlivé záznamy

Format =

|@<<<<<<<<<<<|@<<<<<<<<<<<|

$jmeno, $příjmení

.

$jmeno = ‘Emil’; $příjmení = ‘Zabloudil‘;

Write;

$- = 0; //Odstránkování
$jmeno = ‘Pepík’; $příjmení = ‘Votýpka‘;

Write;

// Vytiskne

Vytvořeno dne: 15. 1.2008 Strana 1
+-------------- -+-------------------------+
| Jméno..........| Příjmení...................|
+----------------+-------------------------+
| Emil...........| Zabloudil....................|


Vytvořeno dne: 15. 1.2008 Strana 2
+----------------+-------------------------+
| Jméno..........| Příjmení...................|
+----------------+-------------------------+
| Pepík..........| Votýpka....................|





A to by bylo pro dnešek všechno. V dalším díle se podíváme na podprogramy. V případě jakýchkoliv dotazů mě kontaktujte na email: habrman@banan.cz.


Autor: Robert Habrman