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

> Perl (45) - Odkazy

V dnešním díle otevíráme další velké téma, jímž je problematika odkazů.

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

Dodnes jsme si pod pojmem datová struktura vybavovali skalár, pole a hash. Odkazy jsou prostředkem, který otevírá dveře ke složitějším. Díky nim budeme moci implementovat takové struktury jako pole polí hashů. Pomocí odkazů lze pracovat s daty daleko lépe než dosud a prakticky neomezeně se v tomto směru rozšíří naše možnosti.

Přes to všechno není odkaz nic jiného než zvláštní typ skalární proměnné. Proto se píše normálně s předponou $.

Odkazy nyní rozdělíme na 2 kategorie: pevné odkazy a symbolické odkazy. V tomto a následujících dílech se budeme věnovat zejména těm pevným; symbolické zmíníme pouze letmo.

Pevné odkazy

Pevný odkaz (dále jen odkaz) má speciální obsah. Je v něm uložena adresa v paměti. Pokud hodnotu odkazu - tedy adresu - vytiskneme, uvidíme řetězec ve tvaru DATOVÝ_TYP(adresa) - konkrétně například SCALAR(0x8187a3c). Odtud je zřejmé, že Perl zde zavádí typovou kontrolu. To má za následek, že pokud budeme chtít s odkazem na skalár zacházet jako s odkazem na pole, skončí program chybou.

Odkaz na skalár

Teď už k věci. Vytvoříme 1. odkaz. Abychom tak mohli učinit, musíme vytvořit nějakou proměnnou s hodnotou.

$x = "HODNOTA";

V paměti to nyní vypadá zjednodušeně takto:

AdresaHodnotaProměnná
3
4
5"HODNOTA"$x
6
7
8
9
10
11

A teď vytvoříme na onu proměnnou odkaz. To se dělá stejně jako přiřazení proměnné, jen se před přiřazovanou hodnotu zapíše zpětné lomítko.

$ref_x = \$x;

$ref_x je skalární proměnná typu odkaz. Situace v paměti se změnila.

AdresaHodnotaProměnná
3
4
5"HODNOTA"$x
6
7
8
9
10SCALAR(5)$ref_x
11

Popišme si, co údaje v tabulce znamenají. Na adrese 10 je uložena hodnota proměnné $ref_x. Tou je odkaz na jinou adresu - konkrétně na adresu 5, na které leží hodnota typu SCALAR s obsahem "HODNOTA". Lze tedy říci, že $ref_x ukazuje na adresu 5, kde je uložena hodnota "HODNOTA".

Nyní můžeme k hodnotě na adrese 5 přistupovat dvěma způsoby. Tak jako dosud, pomocí $x, nebo nově i přes odkaz $ref_x (jediné místo v paměti má 2 jména). Přístupu k hodnotě přes odkaz se říká dereferencování a uskutečňuje se uvedením dolaru mezi stávající dolar a identifikátor. Hodnotu na adrese 5 tedy můžeme tisknout jedním z těchto dvou příkazů, podle dané situace.

print $$ref_x;
print $x;

Perl si počet pevných odkazů, které ukazují na určité místo v paměti, počítá. Počet odkazů se dokáže nejen zvyšovat (vytvářením odkazů na dané místo v paměti), ale i snižovat (zánik nebo přepsání proměnných). Pokud takto klesne na 0, ztrácí se informace o umístění hodnoty. V takovém případě je hodnota zrušena pomocí automatického mechanizmu (tzv. garbage collection) a paměť se uvolní.

Stejný systém správy funguje v souborovém systému, kde je počet odkazů pro každý i-uzel také udržován. Počet odkazů je jednou z informací získaných příkazem ls -l.

Spiše jako zajímavost si uveďme, že za jistých okolností může nastat situace, kdy proměnná $x ukazuje na proměnnou $y a zároveň $y ukazuje na $x. Tomu se říká cyklický odkaz. Po skončení platnosti obou proměnných nemůže být místo v paměti uvolněno, protože čítač odkazů stále neklesl na 0. Pokud to nastane, nezpůsobí to prakticky žádné problémy. Ty nastávají až tehdy, když se tento efekt kumuluje. Zkuste si tento příklad (ale ještě předtím si vše rozdělané uložte) a sledujte paměťové zatížení například pomocí nástroje top.

while(1){
    my($x, $y);
    $x = \$y;
    $y = \$x;
}

Odkaz na pole

Podobně se pracuje s odkazy na pole. Při práci s polem jako s celkem se syntaxe liší pouze nezbytným nahrazením úvodního dolaru za zavináč.

@pole = (5, 6, 7, 8);
$r_pole = \@pole;
print @$r_pole; #tiskne 5678

Zajímavější je to s prvky polí. Z jediného odkazu získáváme přístup k celému poli. Pouze přidáme na konec zápisu dereferencovaného odkazu index. Prvek s indexem 2 se tiskne takto.

print $$r_pole[2]; #tiskne 7

Takový zápis může být značně nejasný. Na první pohled (a často ani na druhý) není zřejmé, kde provádění začíná. Vyhodnotí se nejdříve $$r_pole nebo $r_pole[2]? Lze pouze konstatovat, že správně je $$r_pole. Dereference má vždy vyšší prioritu než index v [].

Z tohoto důvodu se zavádí ještě další a na pohled jednoznačná syntaxe. Mezi název proměnné a index nebo klíč se vloží šipka. Tyto zápisy přístupu k prvku pole jsou stejné.

print $$r_pole[0];
print $r_pole->[0];

Odkaz na hash

Pro hashe platí stejný postup jako při práci s polem. Platí to jak při práci s hashem jako celkem, tak s jednotlivými prvky.

%hash = ("a" => 1);  #vytvoření hashe
$r_hash = \%hash;    #vytvoření odkazu na hash
print $$r_hash{"a"}; #přístup k prvku přes odkaz na hash
print $r_hash->{"a"};#to samé s použitím šipkové notace

Odkaz na podprogram

Nejen na typy skalár, pole a hash jde vytvořit odkaz. Důkazem toho je možnost odkazu na podprogram. Ačkoliv je tento typ odkazu možná hůře představitelný, systém je úplně stejný, jako v předchozích příkladech. Adresu získáme pomocí operátoru zpětného lomítka, tu přiřadíme do proměnné a pomocí ní můžeme po dereferenci volat podprogram.

sub tisk { print "Podprogram\n"; }

$r_print = \&tisk;

&$r_print();
&tisk();

Poslední 2 příkazy volaly tutéž proceduru. Podprogram tisk má nyní 2 jména.

Lze samozřejmě použít šipkovou notaci a případně i předat argumenty.

$r_code = \&delej_neco;
$r_code->(1, 2, 3)

Ale pozor - za jméno dereferencovávaného podprogramu se nesmí uvést závorky. V takovém případě by se podprogram provedl dříve, než se vytvořil odkaz. Do proměnné by se tak přiřadil odkaz na návratovou hodnotu podprogramu.

Úprava dat pomocí odkazů

Doteď jsme data jen získávali. Pokud chceme data, na které odkazy ukazují, upravovat, musíme si uvědomit, co se děje v paměti. Přestavme si, že máme proměnnou $x a odkaz $r_x. Ten ukazuje na hodnotu proměnné $x.

$x = "HODNOTA";
$r_x = \$x;

Zápis na místo, kam ukazuje odkaz, provedeme, stejně jako při čtení hodnoty, dereferencí.

$$r_x = "JINA HODNOTA";

A teď vypišme hodnoty, na které ukazují $$r_x a $x.

print $$r_x;#tiskne "JINA HODNOTA"
print $x;   #tiskne "JINA HODNOTA"

Přestože jsme upravili pouze $$r_x, novou hodnotu má i proměnná $x. Vysvětlení nabízí reprezentace v paměti. Obě proměnné ukazují na stejnou adresu paměti. Změnou hodnoty na této adrese se tedy změní všechny hodnoty získané dereferencováním proměnných, které na toto místo ukazují. Přesněji řečeno jedna hodnota, protože $$r_x je vlastně jen aliasem pro $x.

Symbolické odkazy

Pokud je zapsána proměnná tak, jako by byla pevným odkazem, ale pevným odkazem není, jde o symbolický odkaz. Máme-li proměnnou $$prom v případě pevných odkazů, samotné $prom obsahuje adresu v paměti. Symbolické odkazy se liší tím, že $prom není odkazem a místo toho obsahuje řetězec. Symbolické odkazy nejsou v pravém smyslu odkazy.

$delka = 186;
$prom = "delka";
print $$prom;

Hodnota proměnné $prom se stává jménem jiné proměnné. $delka a $$prom jsou aliasy, takže bylo vytisknuto 186.

Úplně stejně to funguje pro jiné datové typy.

@xx = (2, 3, 6);
$prom = "xx";
print @$prom[0];

Symbolické odkazy nelze v režimu strict (přesněji strict "refs") používat.

Verze pro tisk

pridej.cz

 

DISKUZE

Odkazy 24.10.2006 13:53 Igor Bujna




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

16.4.2014 12:55 /Pavel `Goldenfish' Kysilka
PR: V LinuxMarketu máme do 13.5. "akci" na produkty s logy distribuce Ubuntu.
Přidat komentář

16.4.2014 7:11 /MaReK Olšavský
Pro uživatele čekající na novou řadu vlajkové lodi Red Hatu bude příjemnou novinkou vydání RC RHELu 7. Jeho ambice pro nasazení i na nejnáročnější místa naznačuje výchozé systém XFS s podporou až 500 TB úložiště, podpora Dockeru, nebo (opět) lepší podpora interoperability s MS Windows. Trochu v pozadí příprav nového RHELu pravděpodobně zůstane spuštění OpenShift Marketplace.
Přidat komentář

16.4.2014 7:11 /MaReK Olšavský
Několik postojů k Post-XP éře, kdy může GNU/Linux převzít významnou část trhu, shrnula Katherine Noyes. Od „nefunguje to“ až po „funguje mnohem lépe“. Bohužel GNU/Linux není ve všech případech možnou náhradou.
Přidat komentář

15.4.2014 7:32 /MaReK Olšavský
Vývojáři Linux Mintu vydali Cinnamon 2.2, vlastní desktop (který byl ještě nedávnou „pouhou“ nadstavbou GNOME3) nabízející vše dobré z GNOME2. Pro Mint Linux a Ubuntu už v repozitářích je, do ostatních distribucí se postupně dostane. Vedle příjemného oznámení dnes stojí i finanční problémy GNOME Foundation, za něž pravděpodobně může pozitivně diskriminační program OPW, jež znamenají financování jen nezbytně nutných činností spjatých s vývojem GNOME a GTK.
Přidat komentář

15.4.2014 7:32 /MaReK Olšavský
Na blogu The Linux Rain vyšel článeček s 5 důvody „proč je podpora Linuxu od GOG.com dobrou zprávou“. Nové tituly budou, v rámci možností, vycházet na Valve, ale existuje spousta kvalitních titulů, leč se starším datem vydání.
Přidat komentář

15.4.2014 7:32 /MaReK Olšavský
Linksys, nyní již ve vlastnictví Belkinu, připravil nový router s dobrou výbavou a svobodným formwarem WRT.
Přidat komentář

11.4.2014 12:41 /MaReK Olšavský
Projekt svobodného laptopu Novena uspěl a už se sériově vyrábí, byť pro leckoho může být překážkou poměrně vysoká cena cca US$ 2000. Na webu VentureBeat si můžete přečíst rozhovor s Andrewem „Bunnie“ Huangem o důvodech konstrukce svobodného laptopu. Pořídí si jej Richard M. Stallman?
Přidat komentář

11.4.2014 12:41 /MaReK Olšavský
OT: Pro mnoho uživatelů je velmi těžké loučení s Windows XP, ale byly kritizovány možná ještě více, než aktuální Windows 8. Je důvod litovat?
Přidat komentář

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

> Poslední diskuze

7.4.2014 6:31 / MaReK Olšavský
Re: No, nevím

4.4.2014 10:22 / Petr Ježek
No, nevím

4.4.2014 10:18 / Petr Ježek
ATI

24.3.2014 13:54 / Michal Linha
Re: Delimiter

24.3.2014 13:46 / Michal Linha
Re: Delimiter

Více ...

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