2.18. Правильный вывод во множественном числе 89

выражением, найдите позиции для запятых и вставьте их с помощью подстановки. Наконец, верните строку к исходному порядку символов.

sub commify {

my Stext = reverse $ [0],

Stext =- s/(\cl\d\d)(=\cl)(\dA )/$1 /g,

return scalar reverse Stext;

Комментарий

Регулярные выражения намного удобнее использовать в прямом, а не в обратном направлении. Учитывая этот факт, мы меняем порядок символов в строке на противоположный и вносим небольшие изменения в алгоритм, который многократно вставляет запятые через каждые три символа от конца. Когда все вставки будут выполнены, порядок символов снова меняется, а строка возвращается из функции. Поскольку функция reverse учитывает косвенный контекст возврата, мы принудительно переводим ее в скалярный контекст.

Функцию нетрудно модифицировать так, чтобы вместо запятых разряды разделялись точками, как принято в некоторых странах.

Пример использования функции commify выглядит так:

# Достоверный счетчик обращений -) use Math TrulyRandom,

$hits = truly random value(), # Отрицательное значение Soutput = Your web page received $hits accesses last month \n", print commify($output).

Your web page received -1,740,626,206 accesses last month.

> Смотри также-

perllocale(l); описание функции reverse в perlfunc(l).

2.18. Правильный вывод во множественном числе

Проблема

требуется вывести фразу типа: "It took $time hours(«Это заняло $time часов»). Однако фраза «It took 1 hours» («Это заняло 1 часов») не соответствует правилам грамматики. Необходимо исправить ситуацию.

Решение

Воспользуйтесь printf и тернарным оператором XY: Z, чтобы изменить глагол или существительное.

К сожалению, для русского языка этот рецепт не подойдет, поскольку множественное число в нем образуется по более сложным правилам с большим количеством исключений. - Примеч перев.

printf "It took %d hour%s\n", $time, $tlme == 1 ? "" : "s";

printf "%d hour%s %s enough,\n", $tlitie, $tlme == 1 ? "" : "s"; $time == 1 ? "is" : "are";

Кроме того, можно воспользоваться модулем Lingua::EN::Inflect с CPAN, упоминаемым в комментарии.

Комментарий

Невразумительные сообщения вроде 1 file(s) updated" встречаются только из-за того, что автору программы лень проверить, равен ли счетчик 1.

Если образование множественного числа не сводится к простому добавлению суффикса S, измените функцию printf соответствующим образом:

printf "It took %d centur%s", $time, $time == 1 ? "y" ; "ies";

В простых ситуациях такой вариант подходит, однако вам быстро надоест писать его снова и снова. Возникает желание написать для него специальную функцию:

sub noun plural { local $ = shift; # Порядок проверок крайне важен! s/ss$/sses/ s/([psc]h)$/${1}es/ s/z$/zes/ s/ff/$/ffs/ s/f$/ves/ s/ey$/eys/ s/y$/ies/ s/ix$/ices/ s/([sx])$/$1es/ s/$/s/

die "cant get here"; •

return $ ;

♦verb singular = \&noun plural; # Синоним функции

Однако со временем будут находиться новые исключения и функция будет становиться все сложнее и сложнее. Если у вас возникнет потребность в подобных морфологических изменениях, воспользуйтесь универсальным решением, которое предлагает модуль Lingua:EN::Inflect от CPAN.

use Lingua;:EN::Inflect qw(PL classical);

classical(1); # Почему не сделать по умолчанию?

while (<DATA>) { # Каждая строка данных

for (split) { # Каждое слово в строке

print "One $ , two", PL($ ), ",\n";

# и еще один вариант

$ = secretary general;

print "One $ , two ", PL($ ), ".\n";

END fish fly ox species genus jockey index matrix mythos phenomenon formula

Результат выглядит так:

One fish, two fish.

One fly, two flies.

One ox, two oxen.

One species, two species.

One genus, two genera.

One phylum, two phyla.

One cherub, two cherubim.

One radius, two radii.

One jockey, two jockeys.

One index, two indices.

One matrix, two matrices.

One mythos, two mythoi.

One phenomenon, two phenomena.

One formula, two formulae.

One secretary general, two secretaries general.

Мы рассмотрели лишь одну из многих возможностей модуля. Кроме того, он обрабатывает склонения и спряжения для других частей речи, содержит функции сравнения без учета регистра, выбирает между использованием а и an и делает многое другое.

> Смотри также-

Описание тернарного оператора выбора в perlop(l); документация по модулю Lingua:;EN::Inflect с CPAN.

2.19. Программа: разложение на простые множители

Следующая программа получает один или несколько целых аргументов и раскладывает их на простые множители. В ней используется традиционное числовое представление Perl, кроме тех ситуаций, когда представление с плавающей запятой может привести к потере точности. В противном случае (или при запуске с параметром -Ь) используется стандартная библиотека Math::Blight, что позволяет работать с большими числами. Однако библиотека загружается лишь при необходимости, поэтому вместо use используются ключевые слова require и import - это позволяет выполнить динамическую загрузку библиотеки во время выполнения вместо статической загрузки на стадии компиляции.