Pragmata jsou specifická kategorie modulů, které mění chování interpretu Perlu.
31.7.2006 09:00 | Jiří Václavík | přečteno 20119×
Moduly obvykle přidávají do programu funkce nebo proměnné. Pragma je speciální druh modulu, který nám nic nového nedává, ale upravuje stávající chování. Fungují tedy podobně jako přepínače u unixových příkazů.
Názvy pragma modulů zpravidla začínají malým písmenem, čímž se odlišují od běžných modulů.
Další odlišnost s běžnými moduly je v tom, že pragmata obvykle platí pouze lokálně. S koncem bloku končí i platnost vloženého pragma modulu. Lze je nejen zapínat, ale i vypínat. Zapínají se pomocí use pragma; a vypínají se příkazem no pragma;.
V tabulce jsou uvedeny vybrané pragmatické moduly. Pro více informací o pragmatech navštivte příslušnou část dokumentace.
| Pragma | Význam |
| attributes | nastavuje atributy podprogramům |
| base | modifikuje pole @ISA (více bude řečeno v souvislosti s dědičností) |
| bigint | matematické operace jsou přetíženy tak, jako bychom pracovali s modulem Math::BigInt |
| bignum | jako bigint, ale dokáže pracovat i s Math::BigFloat |
| bigrat | jako bignum, ale podporuje práci se zlomky |
| constant | definuje konstantu, která je read only |
| diagnostics | dlouhé výpisy při chybách; lze použít ještě -verbose |
| if | na základě výsledku vyhodnocení výrazu dokáže načíst modul |
| integer | celočíselný režim |
| lib | mění obsah pole @INC |
| locale | definuje národní prostředí (více zde) |
| overload | přetěžování operací; budeme se mu věnovat po probrání objektově-orientovaného programování |
| re | upravuje chování regulárních výrazů (něco bylo napsáno zde) |
| sigtrap | zpracování signálů |
| strict | striktní režim |
| subs | deklarace podprogramů |
| utf8 | podpora kódování utf8 |
| vars | deklarace proměnných; dnes se nahrazuje deklarací pomocí our |
| warnings | zobrazuje varování; funguje podobně jako přepínač -w |
Nyní si k některým pragma modulům uvedeme více detailů. Kompletní informace jsou opět v dokumentaci.
Direktivu strict již běžně používáme. Zmíníme se o ní však ještě jednou, protože jsme dosud přesně nedefinovali, co vlastně zakazuje. Použití příkazu use strict; zakazuje použití potenciálně nebezpečných konstrukcí. Jedná se o tři typy konstrukcí:
Uvedením parametru lze docílit toho, aby byl zakázán jen určitý typ konstrukce. Příkaz use strict 'vars'; zakazuje nedeklarované proměnné, parametr 'subs' zakazuje holá slova a 'refs' symbolické odkazy. Nicméně toto separování použijeme spíše výjimečně.
Pragma constant, jak je již z názvu patrné, vytváří konstanty. Konstanta je symbolem s hodnotou, kterou nelze přepisovat. Definicí konstanty docílíme stejného výsledku, jakého bychom dosáhli definicí podprogramu, jež by vracel konstantní data.
use constant PI => 3.141592;
Přiřadili jsme symbolickému jménu PI hodnotu. Tato hodnota je neměnná a lze ji pouze číst. Po vytvoření konstanty s ní můžete nakládat podobně jako s obyčejnou proměnnou.
print PI;
$polomer = 3;
$obsah = PI * $polomer ** 2;
print $obsah;
Přes odkaz lze do konstant ukládat i seznamové hodnoty.
use constant SEZNAM => 1, 2, 3;
@pole = SEZNAM;
Mohlo by se zdát, že lze ukládat libovolně složité datové struktury a to pomocí odkazů. Ukládat je sice lze, ale má to háček. Konstantní totiž bude odkaz a ne hodnoty, na které ukazuje. Ty můžeme měnit.
use constant PLAT => {
"reditel" => 40000,
"zastupce" => 25000
};
PLAT->{"reditel"} = 30000;
print PLAT->{"reditel"};
Pro počítání s neomezeně dlouhými čísly lze užít pragmat bigint a bignum. bigint přetěžuje matematické operace pomocí modulu Math::BigInt. Můžeme tak provést například následující operaci.
use bigint;
print 2**128;
Získáme výsledek 340282366920938463463374607431768211456. Kdybychom bigint nepoužili, dostaneme pouze zaokrouhlenou hodnotu 3.40282366920938e+38.
bigint a bignum mají několik voleb, které dále upřesňují jeho chování. Volba a zapíná podporu zaokrouhlování. Pro nastavení zaokrouhlování na 11 platných čísel zavedeme modul tímto způsobem.
use bigint "a", 11;
Přesnost lze nastavit i na základě pozice oproti desetinné čárce. Jako parametr volbě p předáme kladné nebo záporné číslo, podle toho na jaké straně od desetinné čárky se bude zaokrouhlovat. Zkusíme zaokrouhlit číslo na 2 desetinná místa.
use bignum "p", -2;
print 2**128 + 0.123456789;
Nakonec si zmiňme ještě dvě volby. Volba t zapíná trasovací režim a volba v vypisuje názvy a verze všech použitých modulů.
Pragma bigrat je opět rozšířením bignum. Umožňuje počítat se zlomky bez převádění na desetinná čísla. Matematické operátory jsou přetíženy tak, že vracejí řetězec ve formátu zlomku.
use bigrat;
my $a = 1/3;
my $b = 2/5;
print $a + $b, "\n"; #vytiskne 11/15
print $a * $b, "\n"; #vytiskne 2/15
Pragma integer umožňuje pracovat s čísly výhradně jako integery. Přepnutí do celočíselného režimu provedeme tímto příkazem.
use integer;
Nyní bude desetinná část po provedení matematických operací vždy odříznuta. Pro porovnání uveďme též to samé v desetinné aritmetice.
use integer; print 7 / 3, "\n"; #vytiskne 2
no integer; print 7 / 3, "\n"; #vytiskne 2.33333333333333
Přestože pragma less zatím není implementována a lze ji čekat až ve vyšší verzi Perlu, uvedeme si pro zajímavost její funkci, neboť může leckoho zaujmout. Pomocí ní budeme moci udělat vlastní kompromis mezi mírou použití operační pamětí a časem procesoru. less říká, čeho se má používat méně.
use less "memory";
use less "CPU";
Tímto máme za sebou většinu těch nejčastějších pragmat. Některé již známe z minulých dílů, ale pár jich na nás ještě v budoucnu čeká.