Изучаем Perl

Доставка еды в химках на сайте unagi-maki.ru. | Смотрите pizza-maestro.ru заказ вкусной еды на дом. |

Глава 8 "Функции" 1 Вот один из способов решения этой задачи


sub card {

my %card_map;

@card_map(l..9} = qw (

one two three four five six seven eight nine );

my($num) = @_;

if ($card_map($num}) {

return $card_map($num};

) else (

return $num;

) } # driver routine:

while (0) {

chomp;

print "card of $_ is ", &card($ ), "\n";

)

Подпрограмма scard (названная так потому, что она возвращает название на английском языке для данного числа) начинается с инициализации хеша-константы, который называется %card_map. Значения ему присваиваются так, что, например, $card_map {6} равно six; это делает преобразование достаточно простым.

С помощью оператора if мы определяем, принадлежит ли значение заданному диапазону, отыскивая это число в хеше: если в хеше имеется соответствующий элемент, проверка дает значение "истина", и данный элемент, являющийся соответствующим именем числительным, возвращается. Если соответствующего элемента нет (например, когда $num равно 11 или -4), то поиск в хеше возвращает значение undef и выполняется ветвь else оператора if, возвращая исходное число. Весь цикл, задаваемый оператором if, можно заменить одним выражением:

$card map($num) || $num;

Если значение слева от | | истинно, то это — значение всего выражения, которое затем и возвращается. Если оно ложно (например, когда значение переменной $num выпадает из диапазона), то вычисляется правая часть операции | |, возвращая значение $num.

Подпрограмма-драйвер последовательно получает строки, отсекает символы новой строки и передает их по одной в программу &card, выводя результат.

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

sub card ( ...; } # из предыдущего ответа print "Enter first number: ";

chomp($first = <STDIN>) ;

print "Enter second number: "; , chomp($second = <STDIN>) ;

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

card($second) . " equals " .

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

print "\u$message";

Первые два оператора print приглашают ввести два числа, а операторы, следующие сразу же за ними, считывают эти значения в $first и $second.

Затем путем троекратного вызова &card — по одному разу для каждого значения и один раз для суммы — формируется строка $message.

После формирования сообщения его первый символ с помощью операции \и переводится в верхний регистр. Затем сообщение выводится на экран.

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

sub card f

my %card_map;

@card_map(0..9} = qw (

zero one two three four five six seven eight nine );

my($num) = @_;

my($negative) ;

if ($num < 0) {

$negative = "negative ";

$num = - $num;

) if ($card_map($num)) (

return $negative . $card_map($num};

} else (

return $negative . $num;

)

Здесь мы объявили массив %card_map, чтобы обнулять его значения.

Первый оператор if инвертирует знак переменной $num и присваивает переменной $negative в качестве значения слово negative, если задаваемое в качестве аргумента число меньше нуля. После действия оператора if значение $num всегда неотрицательное, но при этом в переменную $negative записывается строка negative, которая в дальнейшем используется как префикс.

Второй оператор if определяет, находится ли значение переменной $num (теперь положительное) в хеше. Если да, то полученное в результате значение хеша присоединяется к префиксу, который хранится в $ negative, и возвращается. Если нет, то значение, содержащееся в $negative, присоединяется к исходному числу.

Последний оператор if можно заменить выражением:

$negative . ($card_map{$num) || $num) ;









Начало  Назад  Вперед