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

> 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 30778×

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ů

13.9.2017 8:00 /František Kučera

Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt – tentokrát netradičně v pondělí: 18. září od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).


Přidat komentář

3.9.2017 20:45 /Redakce Linuxsoft.cz
PR: Dne 21. září 2017 proběhne v Praze konference "Mobilní řešení pro business". Hlavní tématy konference budou: nejnovější trendy v oblasti mobilních řešení pro firmy, efektivní využití mobilních zařízení, bezpečnostní rizika a řešení pro jejich omezení, správa mobilních zařízení ve firmách a další.
Přidat komentář

15.5.2017 23:50 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 18. května od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

12.5.2017 16:42 /Honza Javorek
PyCon CZ, česká konference o programovacím jazyce Python, se po dvou úspěšných ročnících v Brně bude letos konat v Praze, a to 8. až 10. června. Na konferenci letos zavítá např. i Armin Ronacher, známý především jako autor frameworku Flask, šablon Jinja2/Twig, a dalších projektů. Těšit se můžete na přednášky o datové analytice, tvorbě webu, testování, tvorbě API, učení a mentorování programování, přednášky o rozvoji komunity, o použití Pythonu ve vědě nebo k ovládání nejrůznějších zařízení (MicroPython). Na vlastní prsty si můžete na workshopech vyzkoušet postavit Pythonem ovládaného robota, naučit se učit šestileté děti programovat, efektivně testovat nebo si v Pythonu pohrát s kartografickým materiálem. Kupujte lístky, dokud jsou.
Přidat komentář

2.5.2017 9:20 /Eva Rázgová
Putovní konference československé Drupal komunity "DrupalCamp Československo" se tentokrát koná 27. 5.2017 na VUT FIT v Brně. Můžete načerpat a vyměnit si zkušenosti z oblasti Drupalu 7 a 8, UX, SEO, managementu týmového vývoje, využití Dockeru pro Drupal a dalších. Vítáni jsou nováčci i experti. Akci pořádají Slovenská Drupal Asociácia a česká Asociace pro Drupal. Registrace na webu .
Přidat komentář

1.5.2017 20:31 /Pavel `Goldenfish' Kysilka
PR: 25.5.2017 proběhne v Praze konference na téma Firemní informační systémy. Hlavními tématy jsou: Informační systémy s vlastní inteligencí, efektivní práce s dokumenty, mobilní přístup k datům nebo využívání cloudu.
Přidat komentář

15.4.2017 15:20 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě IoT a radiokomunikace? Přijď na sraz spolku OpenAlt, který se bude konat ve středu 19. dubna od 18:30 v Šenkovně (Sokolská 60, Praha 2).
Přidat komentář

5.3.2017 19:12 /Redakce Linuxsoft.cz
PR: 23. března proběhne v Praze konferenci na téma Cloud computing v praxi. Hlavními tématy jsou: Nejžhavější trendy v oblasti cloudu a cloudových řešení, Moderní cloudové služby, Infrastruktura současných cloudů, Efektivní využití cloudu, Nástrahy cloudových řešení a jak se jim vyhnout.
Přidat komentář

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

> Poslední diskuze

18.9.2017 14:37 / Rojas
high security vault

15.9.2017 7:33 / Wilson
new zealand childcare jobs

31.8.2017 12:11 / Jaromir Obr
Re: ukůládání dat ze souboru

30.7.2017 11:12 / Jaromir Obr
Národní znaky

27.7.2017 12:24 / Jaromir Obr
Cteni/zapis

Více ...

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