1.4. Преобразование между символами и ASCII-кодами 35

Формат %с в функциях printf и sprintf также преобразует число в символ-

$char = sprintf( %с , $num), # Медленнее чем chr{$nuni)

printf{ Number %d is character %c\n , $num, $num) Number 101 is character e

Шаблон С*, используемый в функциях pack и unpack, позволяет быстро преобразовать несколько символов:

(51ASCII = unpack( С* Sstring) (aSTRING = раск( С* $ascii),

Комментарий

в отличие от низкоуровневых, нетипизованных языков вроде ассемблера, Perl не считает эквивалентными символы и числа; эквивалентными считаются строки и числа. Это означает, что вы не можете произвольно присвоить вместо символа его числовое представление, или наоборот. Для преобразования между символами и их числовыми значениями в Perl существуют функции chr и ord, взятые из Pascal:

$ascii value = ord{ е ) » Теперь 101 $character = chr{101), # Теперь е

Символ в действительности представляется строкой единичной длины, поэтому его можно просто вывести функцией print или с помощью формата %s функций printf и sprintf Формат %с заставляет printf или sprintf преобразовать число в символ, однако он не позволяет вывести символ, который уже хранится в символьном формате (то есть в виде строки).

printf( Number %d is character %c\n 101 101),

Функции pack, unpack, chr и ord работают быстрее, чем sprintf. Приведем пример практического применения раек и unpack.

@ascii character numbers = unpack( С* , sample ), print (5iascii character numbers\n , 115 97 109 112 108 101

$word = pack( C* ascii character nurabers),

Sword = pack( C* 115, 97, 109, 112, 108 101), # To же самое

print $word\n

sample

A вот как превратить HAL в IBM:

$hal = HAL ,

@ascii = unpack{ C* , $hal), foreach $val (@ascii) {

$val++, # Увеличивает каждый ASCII-код на 1

$ibm = pack( С*), (siascii),

print $ibm\n » Выводит IBM

Функция ord возвращает числа от О до 255. Этот диапазон соответствует тину данных unsigned char языка С.

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

Описание функций chr, ord, printf, sprintf, pack и unpack вperlfunc{\).

1.5. Посимвольная обработка строк

Проблема

Требуется последовательно обрабатывать строку по одному символу.

Решение

Воспользуйтесь функцией split с пустым шаблоном, чтобы разбить строку на отдельные символы, или функцией unpack, если вам нужны лишь их ASCII-коды:

(Эаггау = split( , Sstring); (Эаггау - unpackCC*", Sstring);

Или последовательно выделяйте очередной символ в цикле:

while (/(.)/g) { # . здесь не интерпретируется как новая строка # Сделать что-то полезное с S1

Комментарий

Как говорилось выше, фундаментальной единицей текста в Perl является строка, а не символ. Необходимость посимвольной обработки строк возникает достаточно редко. Обычно такие задачи легче решаются с помощью высокоуровневых операций Perl (например, поиска по шаблону). Пример приведен в рецепте 7.7, где для поиска аргументов командной строки используются подстановки.

Если вызвать split с шаблоном, который совпадает с пустой строкой, функция возвращает список отдельных символов строки. При намеренном использованин эта особенность оказывается удобной, однако с ней можно столкнуться и случайно. Например, /X*/ совпадает с пустой строкой. Не исключено, что вам встретятся и другие ненамеренные совпадения.

Ниже приведен пример, который выводит символы строки "an apple а day, отсортированные в восходящем порядке ASCII-кодов:

%seen = 0;

Sstring = "an apple a day"; foreach Sbyte (split , Sstring) { $seen(S1)++;

print "unique chars are: ", sort(keys %seen), "\n"; unique chars are: adelnpy

1.5. Посимвольная обработка строк 37

Решения с функциями split и unpack предоставляют массив символов, с которым можно работать. Если массив не нужен, воспользуйтесь поиском по шаблону в цикле while с флагом /д, который будет извлекать по одному символу:

%seen = 0;

$string = "an apple a day"; while ($string =~ /(.)/g) { $seen($1)++;

print "unique chars are: ", sort(keys %seen), "\n"; unique chars are: adelnpy

Как правило, посимвольная обработка строк не является оптимальным решением. Вместо использования index/substr или split/unpack проще воспользоваться шаблоном. В следующем примере 32-разрядная контрольная сумма вычисляется вручную, но лучше поручить работу функции unpack - она сделает то же самое намного эффективнее.

Следующий пример вычисляет контрольную сумму символов Sstring в цикле foreach. Приведенный алгоритм не оптимален; просто мы используем традиционную и относительно легко вычисляемую сумму. За более достойной реализацией контрольной суммы обращайтесь к модулю MD5 на CPAN.

Ssum = 0;

foreach $ascval (unpack("C*", Sstring)) { $sum += $ascval;

print "sum is $sum\n";

# Для строки "an apple a day" выводится сумма 1248

Следующий вариант делает то же самое, но намного быстрее:

$sum = unpack("%32C", Sstring);

Это позволяет эмулировать программу вычисления контрольной суммы SysV:

#!/usr/bin/perl

й sura - Вычисление 16-разрядной контрольной суммы всех входных файлов #checksum = 0;

while (о) ! Schecksum += unpack("%16C*", S ) } Schecksum %= (2 16) - 1; print "$checksura\n";

Ha практике пример использования выглядит так:

% perl sum /etc/termcap 1510

Если у вас установлена GNU-версия sum, для получения идентичного ответа для того же файла ее следует вызвать с параметром -sysv:

% sum -sysv /etc/termcap 1510 851 /etc/termcap

В примере 1.1 приведена еще одна крошечная программа, в которой также реализована посимвольная обработка входных данных. Идея заключается в том, что-