Perl практика

Оператор if/unless.


if(выражение) { op_1; op_2; op_3; } else { op_1; op_2; op_3; }

Управляющее выражение вычисляется как строковая величина в скалярном контексте (если это уже строка, то ничего не изменится, если это число, то оно преобразуется в строку). Если строка пуста, либо состоит из одного символа "0", то значение выражения - ложь. Все остальное - "истина".

Пример:

print "how old are you? "; $a = <STDIN&gt ; chomp($a); if($a &lt 18) { print "So, you're not old enougt to vote, eh?\n"; } else { print "Old enough! Cool! So go vote!\n"; $voter++; }

Оператор unless:

print "how old are you? "; $a = <STDIN&gt ; chomp($a); unless($a &lt 18) { print "Old enough! Cool! So go vote!\n"; $voter++; }

if(выражение) { op_1; op_2; op_3; } elsif(выражение 2) { op_1; op_2; op_3; } else { op_1; op_2; op_3; }



Содержание раздела