Perl samozrejme podporuje podmineny prikaz if/then/else. Ma tento tvar:
if ($a)
{
print "Retezec neni prazdny\n";
}
else
{
print "Retezec je prazdny\n";
}
Pripomenme, ze prazdny retezec je vyhodnocen jako false.
Vysledek Retezec je prazdny dotaneme i v pripade, ze
v promenne $a je retezec 0.
V prikazu if je mozne uvest alternativni prikazy if:
if (!$a) # ! je operator not
{
print "Retezec je prazdny\n";
}
elsif (length($a) == 1) # Pokud predchozi podminka neplati, zkus tuto
{
print "Retezec obsahuje jeden znak\n";
}
elsif (length($a) == 2) # Pokud predchozi podminka neplati, zkus tuto
{
print "Retezec obsahuje dva znaky\n";
}
else # Neplati zadna z predchozich podminek
{
print "Retezec obsahuje mnoho znaku\n";
}
Vsimnete si, ze v klicovem slove prikazu elsif chybi e.