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

> Perl (39) - Pragma

Pragmata jsou specifická kategorie modulů, které mění chování interpretu Perlu.

31.7.2006 09:00 | Jiří Václavík | Články autora | přečteno 16691×

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.

PragmaVýznam
attributesnastavuje atributy podprogramům
basemodifikuje pole @ISA (více bude řečeno v souvislosti s dědičností)
bigintmatematické operace jsou přetíženy tak, jako bychom pracovali s modulem Math::BigInt
bignumjako bigint, ale dokáže pracovat i s Math::BigFloat
bigratjako bignum, ale podporuje práci se zlomky
constantdefinuje konstantu, která je read only
diagnosticsdlouhé výpisy při chybách; lze použít ještě -verbose
ifna základě výsledku vyhodnocení výrazu dokáže načíst modul
integerceločíselný režim
libmění obsah pole @INC
localedefinuje národní prostředí (více zde)
overloadpřetěžování operací; budeme se mu věnovat po probrání objektově-orientovaného programování
reupravuje chování regulárních výrazů (něco bylo napsáno zde)
sigtrapzpracování signálů
strictstriktní režim
subsdeklarace podprogramů
utf8podpora kódování utf8
varsdeklarace proměnných; dnes se nahrazuje deklarací pomocí our
warningszobrazuje 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.

Další vlastnosti strict

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í:

  1. nedeklarované proměnné - všechny proměnné, které nejsou deklarované pomocí my, our, vars, plně kvalifikované nebo importované
  2. holá slova - to jsou neuvozené řetězce, nedeklarované podprogramy apod.
  3. symbolické odkazy

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ě.

Konstanty

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"};

Matematika vyšších čísel

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ů.

Matematika desetinných zlomků

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

Celočíselná matematika

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

Používání systémových zdrojů

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

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ů

16.7.2018 1:05 /František Kučera

Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.


Přidat komentář

18.6.2018 0:43 /František Kučera
Červnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 21. 6. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: F-Droid, aneb svobodný software do vašeho mobilu. Kromě toho budou k vidění i vývojové desky HiFive1 se svobodným/otevřeným čipem RISC-V.
Přidat komentář

23.5.2018 20:55 /Ondřej Čečák
Od pátku 25.5. proběhne na Fakultě informačních technologií ČVUT v Praze openSUSE Conference. Můžete se těšit na spostu zajímavých přednášek, workshopů a také na Release Party nového openSUSE leap 15.0. V na stejném místě proběhne v sobotu 26.5. i seminář o bezpečnosti CryptoFest.
Přidat komentář

20.5.2018 17:45 /Redakce Linuxsoft.cz
Ve čtvrtek 31. května 2018 připravuje webový magazín BusinessIT ve spolupráci s Best Online Média s.r.o. pátý ročník odborné konference Firemní informační systémy 2018. Akce proběhne v kongresovém centru Vavruška (palác Charitas), Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00 hod. dopoledne do cca 15 hod. odpoledne. Konference je zaměřena na efektivní využití firemních informačních systémů a na to, jak plně využít jejich potenciál. Podrobnější informace na webových stránkách konfrence.
Přidat komentář

14.5.2018 7:28 /František Kučera
Květnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 17. 5. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: Audio – zvuk v GNU/Linuxu.
Přidat komentář

7.5.2018 16:20 /František Kučera
Na stránkách spolku OpenAlt vyšla fotoreportáž Pražské srazy 2017 dokumentující srazy za uplynulý rok. Květnový pražský sraz na téma audio se bude konat 17. 5. 2018 (místo a čas ještě upřesníme).
Přidat komentář

17.4.2018 0:46 /František Kučera
Dubnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 4. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tématem tohoto srazu bude OpenStreetMap (OSM) aneb svobodné mapy.
Přidat komentář

16.3.2018 22:01 /František Kučera
Kulatý OpenAlt sraz v Praze oslavíme klasicky: u limonády a piva! Přijďte si posedět, dát si dobré jídlo a vybrat z mnoha piv do restaurace Kulový blesk, který najdete v centru Prahy nedaleko metra I. P. Pavlova na adrese Sokolská 13, Praha 2. Sraz se koná ve čtvrtek 22. března a začínáme v 18:00. Heslo: OpenAlt. Vezměte s sebou svoje hračky! Uvítáme, když si s sebou na sraz vezmete svoje oblíbené hračky. Jestli máte nějaký drobný projekt postavený na Arduinu, nějakou zajímavou elektronickou součástku, či třeba i pěkný úlovek z crowdfundingové akce, neváhejte. Oslníte ostatní a o zábavu bude postaráno.
Přidat komentář

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

> Poslední diskuze

20.2.2018 18:48 / Ivan Majer
portal

20.2.2018 15:57 / Jan Havel
Jak využíváte služby cloudu v podnikání?

16.1.2018 1:08 / Ivan Pittner
verejna ip od o2 ubuntu

15.1.2018 17:26 / Mira Harvalik
Re: Jak udělat HTML/Javascript swiping gallery do mobilu?

30.12.2017 20:16 / Michal Knoll
odmocnina

Více ...

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