2.3. Округление чисел с плавающей запятой 71

сумма 3.50 будет храниться в виде 350, а не 3.5, необходимость в числах с плавающей запятой отпадает. Десятичная точка снова появляется в выводимых данных:

Swage = 536, # $5 36/час

Sweek = 40 . Swage, # $214 40

printf( One weeks wage is \$% 2f\n $week/100).

One weeks wage is: $214.40

Редко требуется сравнивать числа более чем до 15 разряда.

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

Описание функции sprintf вреИ/ипс(1у, описание переменной $# в странице руководства рег/шг(1); документация по стандартному модулю Math::BigFloat. Функция sprintf используется в рецепте 2.3. Также обращайтесь к разделу 4.2.2 тома 2 «Искусство программирования».

2.3. Округление чисел с плавающей запятой

Проблема

Число с плавающей запятой требуется округлить до определенного разряда. Проблема связана с теми же погрешностями представления, которые затрудняют сравнение чисел (см. рецепт 2.2), а также возникает в ситуациях, когда точность ответа намеренно снижается для получения более наглядного результата.

Решение

Для получения непосредственного вывода воспользуйтесь функциями Perl sprintf или printf:

Srounded = sprintf( %FORMATf , Sunrounded),

Комментарий

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

Однако во многих ситуациях можно просто воспользоваться функцией sprintf. Формат f позволяет указать количество разрядов, до которого округляется аргумент. Perl округляет последний разряд вверх, если следующая цифра равна 5 и более, и вниз в противном случае.

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

Описание функций sprintf и int в perlfunc(i); описание функций floor и ceil в документации по стандартному модулю POSIX. Методика использования sprintf для округления представлена в рецепте 2.2.

2.4. Преобразования между двоичной и десятичной системами счисления

Проблема

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

$а = 0.255

$Ь = sprintf("%.2f, $а);

print "Unrounded: $a\nRounded: %,2f\n", $a,

Unrounded: 0.255 Rounded; 0.26 Unrounded: 0.255 Rounded: 0.26

Существуют три функции, предназначенные для округления чисел с плавающей запятой до целых: int, ceil и floor. Встроенная функция Perl int возвращает целую часть числа с плавающей запятой (при вызове без аргумента она использует $ ). Функции модуля POSIX floor и ceil округляют аргументы вверх и вниз, соответственно, до ближайшего целого.

use POSIX;

print "number\tint\floor\tceiI\n",

@a = { 3,3 , 3,5 , 3,7 , -3.3); foreach (@a) {

printf( "% .1f\t% .1f\t% .1f\t% .1f\n", $ , int($ ), floor($ ), ceil($ ) );

2.4. Преобразования между двоичной и десятичной системами счисления 73

Решение

Чтобы преобразовать целое число Perl в строку, состоящую из единиц и нулей, сначала упакуйте его в сетевой формат "N" (с начальным старшим байтом), а затем снова распакуйте по одному биту (формат" В32").

sub ciec2bin {

my $str = unpacl<("B32", pacl<("N", shift));

$str =~ s/"0+(?=\ci) ; n В противном случае появятся начальные нули return $str;

Чтобы преобразовать строку из единиц и нулей в целое число Perl, дополните ее необходимым количеством нулей, а затем выполните описанную выше процедуру в обратном порядке:

sub bin2ciec {

return unpack("N, раск("В32, substrCO" x 32 shift, -32)));

Комментарий

Речь идет о преобразовании чисел между строками вида "00100011" и десятичной системой счисления (35). Строка содержит двоичное представление числа. На этот раз функция sprintf не поможет: в ней не предусмотрен формат для вывода чисел в двоичной системе счисления. Следовательно, нам придется прибегнуть к функциям Perl pack и unpack для непосредственных манипуляций со строковыми данными.

Функции раек и unpack предназначены для работы со строками. Строки можно интерпретировать как последовательности битов, байты, целые, длинные целые, числа с плавающей запятой в представлении IEEE, контрольные суммы - не говоря уже о многом другом. Обе функции, раек и unpack, по аналогии со sprintf получают форматную строку, которая определяет выполняемые с аргументом операции.

Мы используем раек и unpack для интерпретации строк как последовательностей битов и двоичного представления целого числа. Чтобы понять, каким образом строка интерпретируется как последовательность битов, необходимо хорошо разобраться в поведении функции раек. Строка интерпретируется как последовательность байтов, состоящих из восьми бит. Байты всегда нумеруются слева направо (первые восемь бит образуют первый байт, следующие восемь бит - второй и т. д.), однако внутри каждого байта биты могут нумероваться как слева направо, так и справа налево.

Функция раек с шаблоном "В" работает с битами каждого байта, пронумерованными слева направо. Именно в этом порядке они должны находиться для применения формата " N", которым мы воспользуемся для интерпретации последовательности битов как 32-разрядного целого.

$num = bin2ciec(0110110) # $num = 54 Sbmstr = ciec2bin(54); # $binstr = 110110