Podmineny prikaz if


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.


Cviceni

Priklad 3. Pouzijte delsi textovy soubor, ktery obsahuje i prazdne radky. Vhodny je napriklad soubor ceskywww.txt
Z predchoziho cviceni mate program, ktery opisuje radky souboru s jejich cislem. Zmodifikujte tento program tak, aby opisoval vsechny radky, ale necisloval prazdne radky. Cisla u neprazdnych radek musi tvorit souvislou radu. Pripomenme, ze kazda prectena radka jiz obsahuje znak konec radky. Jedno z moznych reseni.


Dalsi kapitola | Predchozi kapitola kapitola | Obsah