1.13. Служебные преобразования символов 53

use Text Wrap qw(&wrap $columns),

use Term ReadKey qw(GetTerminalSize), ($columns) = GetTerminalSizeO,

($/, $\) = ( , \n\n ), # Читать no абзацам, выводить два перевода строки while (о) { # Читать весь абзац

s/\s*\n\s*/ /д, # Заменить промежуточные переводы строк пробелами

print wrap( , , $ ), # и отформатировать

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

Описание функций split и join в perlfunc{l), страница руководства стандартного модуля Text::Wrap. Применение модуля Term::ReadKey с CPAN продемонстрировано в рецепте 15.6.

1.13. Служебные преобразования символов

Проблема

Некоторые символы выводимой строки (апострофы, запятые и т. д.) требуется преобразовать к специальному виду. Предположим, вы конструируете форматную строку для sprintf и хотите преобразовать символы % в %%.

Решение

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

# Обратная косая черта

$var =" s/([CHARLrST])/\\$1/g,

# Удвоение

$var =" s/([CHARLIST])/$1$1/g,

Комментарий

в приведенных выше решениях $var - модифицируемая переменная, а CHARLIST - список преобразуемых символов, который может включать служебные комбинации типа \t или \п. Если преобразуется всего один символ, можно обойтись без скобок:

Sstring =" s/%/%%/g.

Преобразования, выполняемые в следующем примере, позволяют подготовить строку для передачи командному интерпретатору. На практике преобразование символов и " еще не сделает произвольную строку полностью безопасной для командного интерпретатора. Правильно собрать весь список символов так сложно, а риск так велик, что для запуска программ лучше воспользоваться списковыми формами system и exec (см. рецепт 16.11) - в этом случае вы вообще избегаете взаимодействия с интерпретатором.

$string = q(Moii) said, "Dont do that."), $string =- s/(["])/\\$1/g;

Две обратные косые черты в секции заменителя были иснользованы потому, что эта секция интерпретируется по правилам для строк в кавычках. Следовательно, чтобы получить одну обратную косую черту, приходится писать две. Приведем аналогичный пример для VMS DCL, где дублируются все апострофы и кавычки:

Sstring = q(Mom said, "Dont do that."), Sstring =- s/(["])/S1$1/g;

С командными интерпретаторами Microsoft дело обстоит еще сложнее. В DOS и Windows СОЛ/ЛМЛЩ. СОМ работает с кавычками, но не с апострофами; не имеет представления о том, как поступать с обратными апострофами, а для превращения кавычек в литерал используется обратная косая черта. Почти все бесплатные или коммерческие Unix-подобные интерпретаторы для Windows пытаются исправить эту удручающую ситуацию.

Кроме того, можно определить интервал с помощью символа -, а затем инвертировать его с помощью символа Следующая команда преобразует все символы, не входящие в интервал от А до Z:

Sstring =- s/([-A-Z])/\\$1/g,

Для преобразования всех неалфавитных символов следует воспользоваться метасимволами \Q и \Е или функцией quotemeta. Например, следующие команды эквивалентны:

Sstring = "this \Ois а test\E"; Sstring = "this is\\ a\\ test"; Sstring = "this " . quotemetaCis a test!),

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

Описание оператора s / в perlre(l) и perlop(l); описание функции quotemeta рассматривается в perlfunc{i). В рецепте 19.1 рассматривается преобразование служебных символов в HTML, а в рецепте 19.6 - о том, как обойтись без передачи интерпретатору строк со служебными символами.

1.14. Удаление пропусков в обоих концах строки

Проблема

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

Решение

Воспользуйтесь парой подстановок:

1.15. Анализ данных, разделенных запятыми 55

Sstring =" s/"\s+ ; Sstring =~ s/\s+$ ;

Также можно написать специальную функцию, которая возвращает нужное значение:

Sstring = triii)($string); @many = triii)(@many);

sub trim {

my @out = @ , for (@out) {

s/-\s+ ;

s/\s+$ ;

return wantarray @out $out[0];

Комментарий

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

Для удаления последнего символа из строки воспользуйтесь функцией chop. В версии 5 была добавлена функция chomp, которая удаляет последний символ в том и только в том случае, если он содержится в переменной $/ (по умолчанию - \п"). Чаще всего она применяется для удаления завершающего символа перевода строки из введенного текста:

# Вывести полученный текст заключенным в >< while(<STDIN>) { chomp;

print ">$ <\п",

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

Описание оператора s / вperlre(l) ирег1ор(1); описание функций chop и chomp в perlfunc(l). Начальные пропуски удаляются в функции getnum из рецепта 2.1 и при разделении элементов списка в рецепте 4.1.

1.15. Анализ данных, разделенных запятыми

Проблема

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