Изучаем Perl

       

Разнообразные управляющие структуры "


1. Вот один из способов решения этой задачи:

sub card (} # из предыдущего упражнения

while О ( ## НОВОЕ ##

print "Enter first number: ";

chomp($first = <STDIN>) ;

last if $first eq "end"; ## НОВОЕ ##

print "Enter second number: ";

chomp($second = <STDIN>) ;

last if $second eq "end"; ## НОВОЕ ##

$message = Scard ($first) . " plus " .

card($second) . " equals " .

card($first+$second) . ".\n";

print "\u$message";

} ## НОВОЕ ##

Обратите внимание на появление цикла while и двух операций last. Вот так-то!



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