1.11. Отступы во встроенных документах 47

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

die "Couldnt send mail" unless send mail(«"EOTEXT", Starget); To: Snaughty From: Your bank

Co: @{ get manager list($naughty) )

Date: @{[ do { my $now = date; chomp $now; $now} ]} (today) Dear Snaughty,

Today, you bounced check number @{[ 500 + int rand(lOO) ]} to us. Your account is now closed.

Sincerely, the management EOTEXT

Расширение строк в обратных апострофах ( ) оказывается особенно творческой задачей, поскольку оно часто сопровождается появлением ложных символов перевода строки. Создавая блок в скобках за (Э в разыменовании анонимного массива @{[ ]}, как это было сделано в последнем примере, вы можете создавать закрытые (private) переменные.

Все эти приемы работают, однако простое разделение задачи на несколько этапов или хранение всех данных во временных переменных почти всегда оказывается более понятным для читателя.

В версии 5.004 Perl в выражении ${\EXPR } значение EXPR ошибочно вычислялось в списковом, а не скалярном контексте. Ошибка была исправлена в версии 5.005.

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

perlref{\).

1.11. Отступы во встроенных документах

Проблема

При использовании механизма создания длинных строк {встроенных документов) текст должен выравниваться вдоль левого поля; в программе это неудобно. Требуется снабдить отступами текст документа в программе, но исключить отступы из окончательного содержимого документа.

Решение

Воспользуйтесь оператором s / для отсечения начальных пропусков: # Все сразу

(Svar = «HERE TARGET) =- s/~\s+ 8m; далее следует

ваш текст HERE TARGET

# Или за два этапа $var = «HERE TARGET;

далее следует

ваш текст HERE TARGET $var =~ s/"\s+ gii);

Комментарий

Подстановка получается весьма прямолинейной. Она удаляет начальные пропуски из текста встроенного документа. Модификатор /т позволяет символу " совпадать с началом каждой строки документа, а модификатор /д заставляет механизм поиска повторять подстановку с максимальной частотой (то есть для каждой строки встроенного докумег1та).

($definition = «FINIS) =s/"\s+ gm,

The five variations of camelids

are the familiar camel, his frieds

the llama and the alpaca, and the

rather less well-known guanaco

and vicuca. FINIS

Учтите: во всех шаблонах этого рецепта используется модификатор \s, разрешающий совпадение с символами перевода строки. В результате из встроенного документа будут удалены все пустые строки. Если вы не хотите этого, замените в шаблонах \s на ["\S\n].

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

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

sub fix {

my Sstring = shift; Sstring =~ s/"\s+ gm; return Sstring;

print fix(«"END"); Наш документ

1.11. Отступы во встроенных документах 49

# Если функция была объявлена заранее, скобки можно опустить: print fix « END"; Наш документ

Как и во всех встроенных документах, маркер конца документа (END в нашем примере) должен быть выровнен по левому полю. Если вы хотите снабдить отступом и его, в документ придется добавить соответствующее количество пропусков:

(Squote = « FINIS) ="s/~\s+ gm;

. we will have peace, when you and all you works have perished--and the works of your dark master to whom you would deliver us You are a liar, Saruman, and a corrupter of mens hearts. --Theoden in /usr/src/perl/taint.с

FINIS

Squote =~ s/\s+--/\n--; # Перенести на отдельную строку

Если эта операция выполняется с документами, содержащими программный код для eval или просто выводимый текст, массовое удаление всех начальных пропусков нежелательно, поскольку оно уничтожит отступы в тексте. Конечно, это безразлично для eval, но не для читателей.

Мы подходим к следующему усовершенствованию - префиксам для строк, которые должны снабжаться отступами. Например, в следующем примере каждая строка начинается с и нужного отступа:

if ($REMEMBER THE MAIN) {

$perl main C = dequote« MAIN INTERPRETER LOOP; @m int @®a) runopsO { Ш SAVEI32(runlevel); ia®a) runlevel++,

@@@ while ( op = (*op->op ppaddr)() ) ; ia®a) TAINT NOT; @@@ return 0; ia@a) )

MAIN INTERPRETER L00P

# При желании добавьте дополнительный код

При уничтожении отступов также возникают проблемы со стихами, sub dequote;

$poem = dequote«EVER ON AND ON;

Now far ahead the Road has gone, And I must follow, if I can, Pursuing It with eager feet,

Until It joins some larger way Where may paths and errands meet. And whither then I cannot say,

--Bilbo in /usr/src/perl/pp ctl,с