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

Пример 1.1. slowcat

#!/usr/bin/perl

# slowcat -замедленный вывод

# использование: slowcat [-DELAY] [files...],

# где DELAY - задержка

SDELAY = ($ARGV[0] =- /"-([.\d]+)/) ? (shift, $1) : 1; $1 = 1; while (o) {

for (split( )) { print;

select(undef,undef,undef, 0.005 * $DELAY);

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

Описание функций split и unpack вperlfunc(l); применение select для организации задержки объясняется в рецепте 3.10.

1.6. Обратная перестановка слов или символов

Проблема

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

Решение

Для перестановки байтов воспользуйтесь функцией reverse в скалярном контексте:

Srevbytes = reverse($string);

Для перестановки слов воспользуйтесь reverse в списковом контексте с функциями split и join:

$revwords = ioin(" ", reverse split(" ", Sstring);

Комментарий

у функции reverse существуют два варианта применения. В скалярном контексте функция объединяет аргументы и возвращает полученную строку в обратном порядке. В списковом контексте функция возвращает аргументы в обратном порядке. При использовании reverse для перестановки символов в неочевидной ситуации используйте функцию scalar для форсированного применения скалярного контекста.

1.6. Обратная перестановка слов или символов 39

Sgnirts = reverse($string); # Перестановка символов Sstring Ssdrow = reverse(iaiwords); # Перестановка элементов gsdrow

Sconfused = reverse(@words); tt Перестановка букв в ]oin("", (awords)

Приведем пример обратной перестановки слов в строке. Пробел (" ) в качестве шаблона split является особым случаем. Он заставляет split использовать в качестве разделителя смежные пропуски (whitespace) и отбрасывать начальные пустые ноля (но аналогии с awk). Обычно split отбрасывает только конечные пустые поля.

П Обратная перестановка слов

Sstring = Yoda said, "can you see this?";

(Sallwords = split(" ", Sstring);

(girevwords = ]oin(" ", reverse laallwords);

print Srevwords, "\n";

this?" see you "can said, Yoda

Временный массив @allworcis можно убрать и сделать все в одной строке:

Srevwords = ]oin(" ", reverse split(" ", Sstring);

Смежные пропуски в Sstring превращаются в один пробел в Srevwords. Чтобы сохранить существующие пропуски, поступите так:

Srevwords = ]oin("", reverse split (/(S+)/, Sstring));

С помощью функции reverse можно проверить, является ли слово палиндромом (то есть читается ли одинаково в обоих направлениях):

Sword = "reviver";

Sis palindrome = (Sword eq reverse($word));

Программа для поиска длинных палиндромов в файле /usr/diet/words записывается в одну строку:

% perl -nle print if S eq reverse && length >5 /usr/dict/words

deedeed

degged

deified

denned

hallah

kakkak

niurdruni

redder

repaper

ratter

reviver

rotator

sooloos

tebbet

terret

tut-tut

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

Описание функций split, reverse и scalar в perlfunc{l); раздел «Switches» рег1пт{1).

1.7. Расширение и сжатие символов табуляции

Проблема

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

Решение

Примените подстановку весьма странного вида:

while (Sstring ="• s/\t+/ х length($&) • 8 - length($ ) % 8)/e) { ft Выполнять пустой цикл до тех пор, й пока выполняется условие подстановки

Также можно воспользоваться стандартным модулем Text::Tabs:

use Text Tabs,

(siexpanded lines = expand ((silines with tabs), (sitabulated lines = unexpand(iailines without tabs),

Комментарий

Если позиции табуляции следуют через каждые N символов (где N обычно равно 8), их несложно преобразовать в пробелы. В стандартном, «книжном» методе не используется модуль Text::Tabs, однако разобраться в нем непросто. Кроме того, в нем используется переменная $ , одно упоминание которой замедляет поиск по шаблону в программе. Причина объясняется в разделе «Специальные переменные» введения к главе 6.

while (О) {

1 while s/\t+/ X length($&) • 8 - length($ ) % 8)/e, print,

Вы смотрите на второй цикл while и не можете понять, почему его нельзя было включить в конструкцию s /g? Потому что вам приходится каждый раз заново пересчитывать длину от начала строки (хранящуюся в $ ), а не от последнего совпадения.