Точнее, все целые числа. Найти все вещественные числа будет нелегко. Не верите - посмотрите у Кантора.

2.5. Действия с последовательностями целых чисел

Проблема

Требуется выполнить некоторую операцию со всеми целыми между X и Y. Подобная задача возникает при работе с непрерывной частью массива или в любой ситуации, когда необходимо обработать все числа из заданного интервала.

Решение

Воспользуйтесь циклом for или .. в сочетании с циклом foreach:

foreach ($Х . $Y) {

# $ принимает все целые значения от X до У включительно

foreach $1 ($Х ..$¥){

й $1 принимает все целые значения от X до Y включительно }

foreach ($1 = $Х; $i <= $Y; $i++) {

й $1 принимает все целые значения от X до Y включительно

foreach ($i = $Х; $i <= $Y; $i+=7) {

й $1 принимает целые значения от X до Y включительно с шагом 7

Комментарий

В первых двух методах используется конструкция $Х. . $Y, которая создает список всех целых чисел между $Х и $Y. Если $Х и $Y расположены далеко друг от друга, это приводит к большим расходам памяти (исправлено в версии 5.005). При организации перебора последовательных целых чисел цикл for из третьего способа расходует память более эффективно.

В следующем фрагменте продемонстрированы все три способа. В данном случае мы ограничиваемся выводом сгенерированных чисел:

print "Infancy is:"; foreach (О .. 2) { print "$ ";

print "\n";

print "Toddling is: "; foreach $i (3 .. 4) {

2.6. Работа с числами в римской записи 75

print "$1 ;

print "\п";

print "Childhood is: "; for ($1 = 5; $1 <= 12; $i++) { print "$i ";

print "\n";

Infancy is: 0 1 2

Toddling is: 3 4

Childhood is: 5 6 7 8 9 10 11 12

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

Описание операторов for и foreach врегкуп{\).

2.6. Работа с числами в римской записи

Проблема

Требуется осуществить преобразование между обычными числами и числами в римской записи. Такая необходимость часто возникает при оформлении сносок и нумерации страниц в предисловиях.

Решение

Воспользуйтесь модулем Roman с CPAN:

use Roman;

Sroman = rorian($arabiG); # Преобразование

# в римскую запись Sarabic = arabic($roman) if isroman($roman); # Преобразование

# из римской записи

Комментарий

Для преобразования арабских («обычных») чисел в римские эквиваленты в модуле Roman предусмотрены две функции, Roman и roman. Первая выводит символы в верхнем регистре, а вторая - в нижнем.

Модуль работает только с римскими числами от 1 до 3999 включительно. В римской записи нет отрицательных чисел или нуля, а для числа 5000 (с помощью которого представляется 4000) используется символ, не входящий в кодировку ASCH.

use Roman;

$roman fifteen = roman(15); # "xv"

print "Roman for fifteen is $roman fifteen\n";

$arabic fifteen = arabic($roman fifteen);

print "Converted back, $roman fifteen is $arabic fifteen\n";

Roman for fifteen is xv

Converted back, xv is 15

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

Документация по модулю Roman; рецепт 6.23.

2.7. Генератор случайных чисел

Проблема

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

Решение

Воспользуйтесь функцией Perl rand. $random = int( rand( $Y-$X+1 ) ) + $X;

Комментарий

Следующий фрагмент генерирует и выводит случайное число в интервале от 25 до 75 включительно:

Srandom = int( rand(51)) + 25; print "SrandomXn";

Функция rand возвращает дробное число от О (включительно) до заданного аргумента (не включается). Мы вызываем ее с аргументом 51, чтобы случайное число было больше либо равно О, но никогда не было бы равно 51 и выше. Затем от сгенерированного числа берется целая часть, что дает число от О до 50 включительно (функция int превращает 50,9999... в 50). К полученному числу прибавляется 25, что дает в результате число от 25 до 75 включительно.

Одно из распространенных применений этой методики - выбор случайного элемента массива:

$elt = $аггау[ rand ©array ];

Также она часто используется для генерации случайного пароля из заданной последовательности символов:

@chars = ( "А" .. 7", "а" .. "z", О ., 9, qw(% ! @ $%"&*) ); Spassword = joinC", @chars[ map { rand gchars } ( 1 .. 8 ) ]);

Мы генерируем восемь случайных индексов @chars с помощью функции тар, извлекаем соответствующие символы в виде среза и объединяем их в случайный пароль. Впрочем, в действительности пароль получается не совсем случайным - безопасность вашей системы зависит от стартового значения (seed) генератора случайных чисел на момент запуска программы. В рецепте 2.8 показано, как «раскрутить» генератор случайных чисел и сделать генерируемые числа более случайными.