Ukonceni fce.

[Miroslav Slouf]

Dobry den...

> Nevite, jakym zpusobem lze opustit provadeni fce,
> neco jako ..
>
>
> sub HelloWorld {
> .
> .
> .
> .
> .
> if (Error)
> {
>     #Ukonceni fce
> }
> .
> .
> .
> # normalni cast kodu ...
> }
>
>
> Existuje zde nejaky exit jen pro fce nebo tak neco?

Prikaz return, priklad nasleduje:

c:\temp> type test.pl
print("Pred funkci..\n");
$retval = &hello;
if ($retval != 0) { print("Chyba ve fci hello: $retval\n"); }
print("Za funkci..\n");

sub hello {
    my($error) = 1;
    print("Ve funkci pred chybou..\n");
    if ($error) { return($error); }
    print("Ve funkci za chybou...\n");
}

c:\temp> perl -w test.pl
Pred funkci..
Ve funkci pred chybou..
Chyba ve fci hello: 1
Za funkci..

S pozdravem
Mirek Slouf