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

> Perl (37) - Začínáme s moduly

Moduly umožňují rozdělovat programy do několika nezávislých souborů nebo sdílet tytéž zdrojové kódy mezi více programy.

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

Modul

Modul je soustavou datových struktur, které souvisejí s určitým problémem. Takový modul můžeme nazvat knihovnou. Modul je kód v separátním souboru, který lze použít ve více programech. Tímto způsobem lze zdrojový kód programu rozdělit na několik logických částí.

Modul si můžeme celkem jednoduše představit. Mějme modul Matematika, ve kterém jsou definovány matematické funkce, které nejsou v základní distribuci Perlu dostupné. Importujeme ho do našeho programu a tyto funkce v něm můžeme používat, aniž bychom se jakkoliv starali o jejich algoritmus. Takže můžeme psát příkazy jako print faktorial(7);. Získali jsme novou funkci, kterou standardní verze Perlu neobsahuje.

Balíky

Každý modul potřebuje svoji sadu jmen, aby názvy proměnných nekolidovaly s jiným kódem. K tomu slouží balíky. Předtím, než budeme v modulech pokračovat, se na ně musíme podívat blíže.

Zamýšleli jste se někdy trochu hlouběji nad významem chybových hlášek? Pokud ano museli jste si všimnout, že před názvem proměnné bylo vždy ještě připsáno main::.

Name "main::promenna" used only once: possible typo at soubor line 1.

main::promenna je totiž celý nebo-li plně kvalifikovaný název proměnné. main je název balíku a promenna jméno proměnné, která je v tomto balíku definována. Oddělují se čtyřtečkou, tedy znaky ::. Je to podobné, jako když voláme do České republiky ze zahraničí a vnitrostátně. Představme si, že každý stát je balíkem s názvem telefonní předvolby. Voláme-li ze zahraničí, musíte uvést předponu 00420. Stejně tak u modulů - z jednoho balíku do jiného musíme volat s předponou (main::promenna). U proměnné, volané z téhož balíku, předpona být nemusí (stačí psát promenna).

Každý balík má svoji vlastní sadu proměnných. V balíku jsou definované proměnné nezávisle na tom, které jsou mimo něj. To znamená, že lze definovat v jediném souboru více proměnných stejného jména. (Vytočením čísla 123456789 se v České republice také dovoláme jinam než třeba v Polsku. V celosvětovém kontextu ale musí být číslo jednoznačné.)

Výchozím balíkem je vždy balík main. Všechny proměnné, které jsme zatím v seriálu definovali, patřily právě sem.

Zápis identifikátoru tedy vypadá následovně.

<typ_proměnné><název_balíku>::<název_proměnné>

Typem proměnné je myšlen znak $ pro skalární proměnné, @ pro pole, % pro hashe a prázdný řetězec pro formáty a ovladače. Všimněme si, že se uvádí už před jméno balíku. Nikoliv až před lokálním názvem, jak by se mohlo čekat.

Příkaz package

K přepínání aktivního balíku uvnitř programu se používá příkaz package, za kterým je uveden název balíku. Platnost příkazu package končí uvedením jiného package nebo koncem bloku, ve kterém byl package použit.

Nutno podotknout, že to s příkazem package není vhodné v jednom souboru přehánět. Nejlepší a nejpřehlednější použití balíků spočívá v jejich vytvoření tak, aby každý byl v separátním souboru. Příkaz package je v tomto případě použít v každém souboru pouze jednou ihned na začátku zdrojového kódu programu.

Ukážeme si konkrétní úsek kódu, který se pokusí použití funkce package demonstrovat.

$prom = 1;
package JinyBalik;
$prom = 2;
package main;
print $prom;

Nejdříve je do proměnné $main::prom (main je implicitní balík) přiřazena hodnota 1, poté se přepne aktuální balík na JinyBalik (obvykle se počáteční písmeno balíku píše velkým písmenem. Výjimkou bývá výchozí balík main, který je vždy s malým m.) a do proměnné $JinyBalik::prom se přiřadí hodnota 2. Opět přepneme balík, tentokrát zpátky na main a tiskneme proměnnou $main::prom, která má hodnotu 1.

V případě, že je aktuálním balíkem balík JinyBalik, lze se dostat k hodnotě proměnné odjinud uvedením plně kvalifikovaného názvu.

$prom = 1;
package JinyBalik;
$prom = 2;
print $main::prom;

Ještě se krátce zmiňme o speciálním symbolu __PACKAGE__. Ten obsahuje vždy jméno aktuálního balíku. Lze ho použít podobně jako klasickou proměnnou. Podmínkou je, aby se nedostal do uvozovek, protože pak by nešlo o symbol a Perl by ho identifikoval jako část řetězce.

print __PACKAGE__;

Moduly v Perlu

Moduly se obvykle ukládají do samostatných souborů s příponou .pm (zkratka Perl Module). Přípona je oproti obyčejným .pl programům důležitá, protože ji předpokládá příkaz use sloužící k zavedení modulu do programu. Část názvu souboru před příponou je shodná s názvem modulu. Modul Data tak bude uložen v souboru Data.pm.

Uvedeme si první a značně nedokonalý příklad konkrétního modulu. Do souboru Zeme.pm uložíme hodnoty, které popisují fyzikální vlastnosti Země.

$polomer = 6378000;
$hustota = 5515;
#apod.
1;

Poslední řádek je návratovou hodnotou zavedení modulu a obsahuje ji každý modul. Podle této hodnoty se zachová příkaz pro načtení modulu do programu. Pokud je vrácena pravdivá hodnota, bylo načtení úspěšné.

Teď modul Zeme zavedeme do nějakého programu. K tomu slouží příkaz use. V adresáři, ve kterém je Zeme.pm vytvoříme další soubor - samotný program.

use Zeme;
print "Hodnota rovníkového poloměru Země je ". $polomer/1000 ." km.";

Nyní nám však nastal problém, který by mohl zejména v rozsáhlejších programech nadělat pořádnou neplechu. Co když budeme chtít definovat nějakou proměnnou, která má shodný název jako jiná proměnná v importovaném modulu? Zákonitě dojde ke kolizi názvů proměnných. Modulová hodnota se jednoduše přepíše. Této kolizi je třeba nějakým způsobem předcházet.

Právě z důvodu, že mechanizmus modulů sám o sobě neodděluje jmenné prostory, jsme si zmiňovali balíky. Pomocí nich si jmenné prostory vytvoříme sami.

Dělá se to tak, že v samotném modulu definujeme balík, který bude mít pro přehlednost stejné jméno jako název celého modulu. V souboru Zeme.pm přidáme na první řádek název balíku.

package Zeme;
$polomer = 6378000;
$hustota = 5515;
1;

Prostory pro proměnné jsou nyní odděleny. Modul používá jmenný prostor Zeme:: a proměnné v programu jsou v main::. Jeden problém jsme vyřešili a v důsledku se nám objevil další. Spusťme teď samotný program. Proměnná $polomer nebude definovaná. Je to však správné - modul (a tedy i proměnnou $polomer) jsme definovali v balíku Zeme (je definováno $Zeme::polomer), ale proměnné voláme z balíku main (voláme $main::polomer). To jsou dvě různé proměnné.

Musíme tedy změnit program a místo $polomer volat $Zeme::polomer.

use Zeme;
print "Hodnota rovníkového poloměru Země je ". $Zeme::polomer/1000 ." km.";

Moduly nejsou obvykle takto jednoduché (to však neznamená, že by se moduly uchovávající konstanty nepoužívaly). Ve většině modulů jsou definovány i nějaké složitější struktury než obyčejné proměnné. Na závěr si uveďme definici modulu Mat, který bude sčítat, odčítat, násobit a dělit. To znamená definici čtyř podprogramů.

package Mat;
use strict;

#vstup: n sčítanců
#vystup: součet
sub soucet {
    my $soucet = 0;
    $soucet += $_ while $_ = shift @_;
    return $soucet;
}

#vstup: n činitelů
#vystup: součin
sub soucin {
    my $soucin = 1;
    return undef if !@_;
    $soucin *= $_ while $_ = shift @_;
    return $soucin;
}

#vstup: menšenec, menšitel
#vystup: rozdíl
sub rozdil {
    return $_[0] - $_[1];
}

#vstup: dělenec, dělitel
#vystup: podíl
sub podil {
    return undef if $_[1] == 0;
    return $_[0] / $_[1];
}

1;

Teď můžeme modul importovat a používat v něm definované funkce. Systém je stále tentýž.

use Mat;
print Mat::soucin(10, 8, 6, 3);
print Mat::rozdil(7, 2);

Příště se podíváme na speciální modul Exporter, který otevírá dveře k dalším možnostem v importu modulů.

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ů

28.1.2015 12:29 /Ondřej Čečák
Svým hlasováním můžete ovlivnit program konference InstallFest 2015. Hlasujte do 30. 1.
Přidat komentář

28.1.2015 7:18 /MaReK Olšavský
Chyba GHOST, v glibc, existovala od listopadu 2000. Nyní je opravena a Qualis vydal podrobnější informace o rizicích.
Přidat komentář

28.1.2015 7:18 /MaReK Olšavský
Založíte společnost a pokud z ní odejdete, uvedete na trh stejný produkt, jako bývalá společnost. Takto nekorektní krok udělal bývalý CEO Opery Jon von Tetzchner, který představil prohlížeč Vivaldi. Vivaldi je především jen „další prohlížeč nad jádrem Chromium, vydaným pro systémy MS Windows, GNU/Linux a Mac OS X.
Přidat komentář

28.1.2015 7:18 /MaReK Olšavský
Snad největší použití technoligie Flash bylo na Youtube, ale to už je (téměř) definitivní minulost, HTML5 je výchozí variantou. Nestalo se tak najednou, již delší dobu se HTML5 tag <video> využíval jako alternativa.
Přidat komentář

27.1.2015 7:25 /MaReK Olšavský
Zpráva o koupi Revolution Analytics Microsoftem trochu unikla pozornosti, Revolution Analytics je komerční poskytovatel software a služeb pro statistický software R. Je vcelku zajímavé, jak se v MS mění přístup k F/L/OSS.
Přidat komentář

27.1.2015 7:25 /MaReK Olšavský
Původně studentská firma ze Španělska připravila telefon pro Ubuntu, který již lze objednat. Cena převyšuje běžný výběr Androidích přístrojů.
Přidat komentář

26.1.2015 7:25 /MaReK Olšavský
Pokud by kurz koruny nebyl tak nepříznivý, byla by vývojářská deska s Cortex-A5, kompatibilní se shieldy pro Arduino, vynikající koupí. Parametry jsou pro počítač, říkající si o vestavbu, vynikající a pochopitelně je provozuschopný pod GNU/Linuxem.
Přidat komentář

26.1.2015 7:25 /MaReK Olšavský
Z oblasti zajímavostí a předvádění zkušenností je nová verze legendárního Pac Mana pro historickou konzoli Atari 2600. Vzhledem k málu paměti i grafickým omezením konzole vypadá nový Pac Man úžasně. K herním konzolím se váže i (trochu delší) článek o vzniku cartridge.
Přidat komentář

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

> Poslední diskuze

27.1.2015 12:58 / Ladislav Kulatý
Re: Mazání adřářů v linuxu pro IP kamery

26.1.2015 23:57 / Sinuhed
Re: Mazání adřářů v linuxu pro IP kamery

26.1.2015 11:05 / Sinuhed
Re: Mazání adřářů v linuxu pro IP kamery

26.1.2015 8:33 / Ladislav Kulatý
Re: Mazání adřářů v linuxu pro IP kamery

24.1.2015 10:40 / Sinuhed
Re: Mazání adřářů v linuxu pro IP kamery

Více ...

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