Длина текста не позволяет разместить его в одной строке. Требуется разделить его на несколько строк без переноса слов. Например, сценарий проверки стиля читает текстовый файл по одному абзацу и заменяет неудачные обороты хорошими. Замена оборота "применяе
Решение
Воспользуйтесь стандартным модулем Text::Wrap для расстановки разрывов строк в нужных местах:
use Text::Wrap;
@OUTPUT = wrap($LEADTAB, $NEXTTAB, @PARA);
Комментарий
В модуле Text::Wrap присутствует 4)ункция wrap (см. пример 1.3), которая получает список строк и переформатирует их в абзац с длиной строки не более $Text: :Wrap: : columns символов. Мы присваиваем переменной $columns значение 20; это гарантирует, что ни
списком строк функции wrap передаются два аргумента: один определяет отступ первой строки абзаца, а второй - отступы всех последующих строк.
Пример 1.3. wrapdemo
#!/usr/bin/perl -w
# wrapdemo - демонстрация работы Text::Wrap
@input = ("Folding and splicing is the work of an editor,".. "not a mere collection of silicon", "and", "mobile electrons!");
use Text::Wrap qw($columns &wrap);
$columns = 20;
print "0123456789" x 2, "\n";
print wrap(" ", " ", @input), "\n":
Результат выглядит так:
01234567890123456789
Folding and splicing is the work of an editor, not a mere collection of silicon and mobile electrons!
В результате мы получаем один абзац, в которой каждая строка, кроме последней, завершается символом перевода строки:
# Объединение нескольких строк с переносом текста use Text::Wrap;
undef $/;
print wrap('', '', split(/\s*\n\s*/, <>);
Если на вашем компьютере установлен модуль Term::ReadKey с СРАМ, вы можете воспользоваться им для определения размеров окна, чтобы длина строк соответствовала текущему размеру экрана. Если этого модуля нет, размер экрана иногда можно взять из $ENV{ COLUMN
Следующая программа переформатирует и слишком короткие, и слишком длинные строки абзаца по аналогии с программой fmt. Для этого разделителем входных записей $/ назначается пустая строка (благодаря чему о читает целые абзацы), а разделителем выходных запис
use Text::Wrap qw(&wrap $columns);
use Term::ReadKey qw(GetTerminalSize);
($columns) = GetTerminalSizeO;
($/, $\) = ('', "\n\n"); # Читать по абзацам, выводить два перевода строки while (о) { # Читать весь абзац
s/\s*\n\s*/ /g; # Заменить промежуточные переводы строк пробелами
print wrap('', '', $_); # и отформатировать }
> Смотри также -------------------------------
Описание функций split и join Bperlfunc(1), страница руководства стандартного модуля Text::Wrap. Применение модуля Term::ReadKey с CPAN продемонстрировано в рецепте 15.6.
Некоторые символы выводимой строки (апострофы, запятые и т. д.) требуется преобразовать к специальному виду. Предположим, вы конструируете форматную строку для sprintf и хотите преобразовать символы % в %%.
Решение
Воспользуйтесь подстановкой, которая снабжает префиксом \ или удваивает каждый преобразуемый символ:
# Обратная косая черта $var =~ s/([CHARLIST])/\\$1/g;
# Удвоение
$var =~ s/([CHARLIST])/$1$1/g;
Комментарий
В приведенных выше решениях $var - модифицируемая переменная, a CHARLIST - список преобразуемых символов, который может включать служебные комбинации типа \t или \п. Если преобразуется всего один символ, можно обойтись без скобок:
$string =~ s/%/%%/g;
Преобразования, выполняемые в следующем примере, позволяют подготовить строку для передачи командному интерпретатору. На практике преобразование символов ' и " еще не сделает произвольную строку полностью безопасной для командного интерпретатора. Правильн
$string = q(Mom said, "Don't do that.");
$string =~ s/(['"])/\\$1/g;
Две обратные косые черты в секции заменителя были использованы потому, что эта секция интерпретируется по правилам для строк в кавычках. Следовательно, чтобы получить одну обратную косую черту, приходится писать две. Приведем аналогичный пример для VMS DC
$string = q(Mom said, "Don't do that.");
$string =-- s/(['"])/$1$1/g;
С командными интерпретаторами Microsoft дело обстоит еще сложнее. В DOS и Windows COMMAND. СОМ работает с кавычками, но не с апострофами; не имеет представления о том, как поступать с обратными апострофами, а для превращения кавычек в литерал используется
Кроме того, можно определить интервал с помощью символа -, а затем инвертировать его с помощью символа ". Следующая команда преобразует все символы, не входящие в интервал от А до Z:
$string =~ s/(["A-Z])/\\$1/g;
Для преобразования всех неалфавитных символов следует воспользоваться метасимволами \0 и \Е или функцией quotemeta. Например, следующие команды эквивалентны:
$string = "this \Qis a test!\E";
$string = "this is\\ a\\ test!";
$string = "this " . quotemeta("is a test!");
> Смотри также -------------------------------
Описание оператора s/// в perlre(1) \\perlop(1) описание функции quotemeta рассматривается в perlfunc{\). В рецепте 19.1 рассматривается преобразование служебных символов в HTML, а в рецепте 19.6 - о том, как обойтись без передачи интерпретатору строк со
В полученную строку могут входить начальные или конечные пропуски. Требуется удалить их.
Решение
Воспользуйтесь парой подстановок:
$string =~ s/"\s+//;
$string =~ s/\s+$//;
Также можно написать специальную функцию, которая возвращает нужное значение:
$string = trim($string);
@many = trim((a>many);
sub trim {
my @out = @)_;
for (@>out) {
s/-\s+//;
s/\s+$//:
} return wantarray ? @out : $outLOJ;
}
Комментарий
У этой проблемы имеются различные решения, однако в большинстве случаев приведенный вариант является наиболее э4)фективным.
Для удаления последнего символа из строки воспользуйтесь функцией chop. В версии 5 была добавлена функция chomp, которая удаляет последний символ в том и только в том случае, если он содержится в переменной $/ (по умолчанию - "\n"). Чаще всего она применя
" Вывести полученный текст заключенным в > while() {
chomp;
print ">$_<\n";
}
> Смотри также --------------------------------
Описание оператора s/// Qperlre(1) реrlор(1) описание функций chop и chomp Bperlfunc(1). Начальные пропуски удаляются в функции getnum из рецепта 2.1 и при разделении элементов списка в рецепте 4.1.
