LINUXSOFT.cz Přeskoč levou lištu

ARCHIV



   

> Perl (10) - Další řídící struktury

Perl Podívejme se na některá klíčová slova, která mohou být používána v cyklech pro dodatečné řízení.

9.6.2005 07:00 | Jiří Václavík | Články autora | přečteno 35781×

last, next, redo

Existuje i jiný způsob, jak řídit cykly, než pomocí testu. Ve skutečnosti můžeme napsat nekonečný cyklus a ukončit ho až za určitých podmínek v jeho bloku. Cyklus tak vůbec nemusí celý řádně proběhnout. V minulém dílu jsme k tomuto účelu použili funkci die. Ta však nevyskočí jen z cyklu, ale přímo ukončí program. Následující informace platí pro všechny cykly, které zatím známe.

Klíčové slovo last uvedené v těle cyklu cyklus okamžitě ukončuje. Provádění programu pokračuje bezprostředně za cyklem (za uzavírací složenou závorkou).

Oproti tomu next přeskočí pouze zbytek bloku a provádění pokračuje další iterací (má stejnou funkci jako céčkovské continue).

U obou těchto klíčových slov je možný parametr, kterým je jméno návěští. To použijeme, pokud se provádí cyklus uvnitř jiného cyklu. Potom vyskočíme z obou.

Teď uveďme několik ukázek kódu, které většinou používají while. V praxi bychom použili u většiny nejspíše for. Cyklus while zde používáme spíše proto, že jsme se s for ještě dostatešně neobeznámili.

$i = 0;
while ($i < 9){
    $i++;
    if ($i == 5) {
        last;
    }
    print "Probíhá cyklus $i.\n";
}

Proběhne pouze 5 cyklů, protože v 5. cyklu je klíčovým slovem last cyklus ukončen a program pokračuje za blokem:

$ perl last.pl
Probíhá cyklus 1.
Probíhá cyklus 2.
Probíhá cyklus 3.
Probíhá cyklus 4.
$

Podobný program, jen s drobnou modifikací - vyměnímě last za next:

$i = 0;
while ($i < 9){
    $i++;
    if ($i == 5) {
        next;
    }
    print "Probíhá cyklus $i.\n";
}

Na začátku 5. cyklu je cyklus přerušen a pokračuje dalším cyklem. Proto není u 5. cyklu zaznamenán výpis:

$ perl while1.pl
Probíhá cyklus 1.
Probíhá cyklus 2.
Probíhá cyklus 3.
Probíhá cyklus 4.
Probíhá cyklus 6.
Probíhá cyklus 7.
Probíhá cyklus 8.
Probíhá cyklus 9.
$

Příkaz redo má stejný účinek jako next, jen nedojde ke změně počítadla. Jinými slovy skočíme znovu na začátek bloku.

for ($i=1; $i<10; $i++){
    $i++;
    if ($i == 4) {
        redo;
    }
    print "Probíhá cyklus $i.\n";
}

Při první iteraci je v bloku zvýšena hodnota $i na 2. V další iteraci je nejprve zvýšena v počítadle, dále v bloku a má hodnotu 4. To je důvod pro volání redo. Program přeskočí opět na začátek bloku, přičemž počítadlo hodnotu $i nemění. Ta se změní až v bloku. Aktuální hodnota je tedy 5 a od tohoto okamžiku už pokračuje skript, aniž by kdykoliv testu podmínky vyhověl.

$ perl while1.pl
Probíhá cyklus 2.
Probíhá cyklus 5.
Probíhá cyklus 7.
Probíhá cyklus 9.
$

Návěští

Další možností řídit cykly je pojmenovat blok a umístit za klíčové slovo last, next nebo redo právě název bloku (návěští). To musí být definováno. Před cyklus, pro který má návěští platit, se uvádí jeho název následovaný dvojtečkou. Návěští se pojmenovává velkými písmeny.

$i = 0;
NAVESTI:
while (){ #nekonečný cyklus
    while ($i < 10){
        print "Probíhá cyklus $i.\n";
        if ($i == 3){
        last NAVESTI;
        }

        $i++;
    }
}

last zde nevyskakuje z vnitřního cyklu, ale z cyklu označeného jako NAVESTI.

$ perl while1.pl
Probíhá cyklus 0.
Probíhá cyklus 1.
Probíhá cyklus 2.
Probíhá cyklus 3.
$

Dodejme, že návěští je vhodné používat z důvodu přehlednosti nejen v případě zanořených cyklů.

Blok continue

continue je nepovinným blokem příkazů na konci cyklu. Je spuštěn při každé iteraci mimo případů, kdy je cyklus přerušen klíčovým slovem redo nebo last. V následujícím příkladu je proměnná $i iterována i v případě, kdy je klíčovým slovem next přeskočeno na další iteraci. continue se proto hodí pro opakování kódu, které by muselo být vyvoláno v každé iteraci. Ovšem často místo použití continue stačí vyměnit cyklus while za for.

while ($i < 10){
    if ($i == 5){
        next;
    }
}continue{
    $i++; #blok continue je proveden vždy. I v případě, že $i == 5.
}

Klíčové slovo goto

goto funguje podobně jako návěští. Parametrem goto je opět návěští, které ale nepojmenovává blok. Může být uvedeno před libovolný příkaz. Po goto se bude dále vykonávat část programu, začínající návěštím.

print "1\n";

goto GOTO;

print "2\n";
print "3\n";

GOTO:

print "4\n";
print "5\n";

Druhé a třetí print nebude vykonáno. Když program narazí na goto, bude vše až po návěští přeskočeno:

$ perl goto.pl
1
4
5
$

Nic nám nebrání umístit návěští na goto před samotné goto.

print "1\n";
$i = 0;
GOTO:

print "2\n";
print "3\n";

$i++;
if ($i != 2){
    goto GOTO;
}
print "4\n";
print "5\n";

Nastává zajímavá situace. Po druhou inkrementaci je goto vynecháno, aby cyklus nebyl nekonečný. Všimněme si, že mluvíme o cyklu, aniž bychom použili while nebo for. Slovo cyklus je skutečně na místě, protože je část kódu vykonávána opakovaně. Pokud se trochu zamyslíme, zjistíte, že jde vlastně logicky o cyklus do...while, který je jen převlečený do jiného kabátu.

$ perl goto.pl
1
2
3
2
3
4
5
$

Přes tento hezký efekt ale doporučují programátoři goto používat jen ve výjimečných situacích, kdy by bylo jiné řešení značně složité. Je to jedna z mnoha dalších konstrukcí, jejíž přispěním program ztrácí na přehlednosti.

Příklad - hádání myšleného čísla

Napíšeme si jednoduchou hru. V ní si od nás program nejprve vyžádá číslo, které bude určovat horní hranici intervalu, ve kterém leží myšlené číslo. Potom bude opakovaně vyzývat k zadání čísla a prozradí vždy, zda je myšlené číslo větší nebo menší než hádané. Přitom bude počítat pokusy. V případě uhádnutí skončí cyklus.

Na začátku programu je nutné aktivovat generátor:

#!/usr/bin/perl 
use strict; 
use warnings; 

srand;

Dále získáme ze vstupu číslo:

my $max;
print "Zadej největší možné číslo: ";
chomp($max = <STDIN>);

Musíme podmínkou ošetřit případ, kdy je zadané číslo nekladné.

if (int $max <= 0){
    die "Toto není správně zadané číslo.\n";
}

Ještě stále nemáme myšlené číslo. Vygenerujeme ho funkcí rand. Je zde ale problém a možná tušíte jaký. rand vrací desetinné číslo a my chceme celé. Desetinnou část odřízneme funkcí int. To má za vedlejší efekt posunutí intervalu o jedničku dolů. Nemáme zájem, aby mohlo být tajné číslo 0, proto přičteme jedničku.

my $tajne_cislo = int(rand($max)) + 1;

Teď na řadu přijde samotný cyklus. V něm musí být výzva k zadání čísla a vyhodnocení - zda je menší, větší nebo rovno myšlenému číslu. Pokud je rovno, vypíšeme hlášku a ukončíme cyklus pomocí klíčového slova last.

while (1){
    print "Hádej číslo mezi 1 a $max.\n";
    my $hadane_cislo;
    chomp($hadane_cislo = <STDIN>);

    if ($hadane_cislo == $tajne_cislo){
        print "Gratuluji!\n";
        last;
    }elsif($hadane_cislo < $tajne_cislo){
        print "To je málo. ";
    }else{
        print "Moc. ";
    }
}

Na něco jsme přece jen zapomněli. Počítat pokusy. S výhodou použijeme blok continue. Před cyklem nastavíme číslo pokusu na 1

my $pokus = 1;

a bezprostředně za cyklus přidáme právě blok continue. V něm budeme přičítat pokusy.

continue{
    $pokus++;
}

Protože s počítáním pokusů dříve nepočítali, musíme upravit hlášku v případě uhodnutí tajného čísla:

print "Gratuluji, uhodl jsi na $pokus. pokus!\n";

Teď spusťme program.

$ ./cislo.pl
Zadej největší možné číslo: 100
Hádej číslo mezi 1 a 100.
50
To je málo. Hádej číslo mezi 1 a 100.
75
Moc. Hádej číslo mezi 1 a 100.
63
To je málo. Hádej číslo mezi 1 a 100.
69
To je málo. Hádej číslo mezi 1 a 100.
72
Moc. Hádej číslo mezi 1 a 100.
70
To je málo. Hádej číslo mezi 1 a 100.
71
Gratuluji, uhodl jsi na 7. pokus!
$

Zdrojový kód příkladu.

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.11.2018 23:56 /František Kučera
Prosincový sraz spolku OpenAlt se koná ve středu 5.12.2018 od 16:00 na adrese Zikova 1903/4, Praha 6. Tentokrát navštívíme organizaci CESNET. Na programu jsou dvě přednášky: Distribuované úložiště Ceph (Michal Strnad) a Plně šifrovaný disk na moderním systému (Ondřej Caletka). Následně se přesuneme do některé z nedalekých restaurací, kde budeme pokračovat v diskusi.
Komentářů: 1

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

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

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

> Poslední diskuze

31.7.2023 14:13 / Linda Graham
iPhone Services

30.11.2022 9:32 / Kyle McDermott
Hosting download unavailable

13.12.2018 10:57 / Jan Mareš
Re: zavináč

2.12.2018 23:56 / František Kučera
Sraz

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

Více ...

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