$big = AUSlittle"; # bo peep -> "BO PEEP"

$little = "\L$big"; # "JOHN" -> "john"

Для замены отдельного символа используйте функции Icfirst и ucfirst со служебными командами \1 и \и:

$big = "\u$little"; # "bo" -> "Во"

$little = "\l$big"; # "ВоРеер" -> "boPeep"

Комментарий

Функции и служебные команды выглядят по-разному, но делают одно и то же. Допускается указание регистра как первого символа, так и целой строки. Вы даже можете форсировать применение верхнего регистра для первого символа и нижнего - для всех остальных.

Встречая директиву use locale, функции преобразования регистра Perl и механизм поиска по шаблону начинают «уважать» правила вашего национального языка. Благодаря ей становится возможным поиск символов с диакритическими элементами и т. д. Одна из распространенных ошибок - преобразование регистра с помощью tr /. Да, мы хорошо помним, что в одном из старых изданий этой книги рекомендовали использовать tr/A-Z/a-z/. В свое оправдание можем лишь сказать, что в то время другого способа не существовало. Такое решение работает не всегда, поскольку из него выпадают все символы с умляутами, седилями и прочими диакритическими элементами, встречающимися во многих языках. Команды преобразования регистра ис и \U понимают эти символы и обеспечивают их правильное преобразование (по крайней мере, если в программе присутствует директива use locale). Исключение составляет немецкий язык; символ Я в верхнем регистре выглядит как SS, но в Perl такое преобразование не поддерживается.

use locale;

$beast = "dromedary";

# Изменить регистр разных символов $beast $capit = ucfirst($beast), # Dromedary Scapit = "\u\L$beast"; # (то же) Scapall = "uc($beast); # DROMEDARY Scapall = "\U$beast"; # (то же) $caprest = lcfirst(uc($beast)); # dROMEDARY $caprest = "\l\U$beast"; # (то же)

Как правило, служебные команды обеспечивают согласованное применение регистра в строке:

# Преобразовать первый символ каждого слова в верхний регистр, й а остальные символы - в нижний

$text = "THIS is а loNG liNE"; $text =~ s/(w+)/\u\L$1/g; print $text; This Is A Long Line

1.9. Преобразование регистра 45

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

If (uc($a) eq uc($b)) {

print "a and b are the same\n ,

Программа randcap из примера 1.2 случайным образом преобразует в верхний регистр примерно 20 ироцептов вводимых символов. Пользуясь ей, можно свободно общаться с 14-летиими WaREz dOODz.

Пример 1.2. randcap

#1/usr/bin/perl -р

# randcap фильтр, который случайным образом

# преобразует к верхнему регистру 20% символов

# В версии 5.004 вызов srand() необязателен BEGIN {srand(time() " ($$ + ($$ « 15))) }

sub randcase { rand(IOO) < 20 \u$ [0]" \1$ [0]" } s/(\w)/randcase($1)/ge;

% randcap < genesis head -9 boOk 01 genesis

001:001 In the BEglnning goD created the heaven and tHe earTH.

001:002 and the earth wAS without ForM, aND void; AnD darkneSS was upon The Face of the dEEp. an the spirit of GOd movEd upOn tHe face of the Waters.

001:003 and god Said, let there be ligHt: and therE wAs LlgHt.

Более изящное решение - воспользоваться предусмотренной в Perl возможностью применения поразрядных операторов для строк:

sub randcase {

rand(IOO) < 20 (•\040 " $1) . $1

Этот фрагмент изменяет регистр примерно у 20 процентов символов. Однако для 8-разрядных кодировок он работает неверно. Аналогичная проблема существовала и в исходной программе randcase, однако она легко решалась применением директивы use locale.

Следующий пример поразрядных строковых операций быстро отсекает у всех символов строки старшие биты:

Sstring &= "М??" X length(Sstring),

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

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

Описание функций ис, 1с, ucfirst и Icfirst врег мпс(1); описание метасимволов \L, \и, \1 и \и в разделе «Quote and Quote-like Operators» perlop(l).

1.10. Интерполяция функций и выражений в строках

Проблема

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

Решение

Выражение можно разбить на отдельные фрагменты и произвести конкатенацию:

Sanswer = $var1 . func(). $var2; # Только для скалярных величин

Также можно воспользоваться неочевидными расширениями @{[LIST EXPR]} или ${\(SCALAR EXPR)}:

$answer = "STRING @{[LIST EXPR]} MORE STRING" Sanswer = "STRING ${\(SCALAR EXPR)} MORE STRING",

Комментарий

в следующем фрагменте продемонстрированы оба варианта. В первой строке выполняется конкатенация, а во второй - фокус с расширением:

Sphrase = "I have " . ($n + 1) "guanacos.", Sphrase = "I have ${\($n + 1)} guanacos ",

в первом варианте строка-результат образуется посредством конкатенации более мелких строк; таким образом, мы добиваемся нужного результата без интерполяции. Функция print фактически выполняет конкатенацию для всего списка аргументов, и, если вы собираетесь вызвать print Sphrase, можно было бы просто наппсать:

print "I have ", $n + 1 . "guanacos.\n",

Если интерполяция абсолютно неизбежна, придется воспользоваться вторым вариантом, изобилующим знаками препинания. Только символы (Э, $ и \ имеют особое значение в кавычках и обратных апострофах. Как и в случаях с т и s /, синоним qx() не подчиняется правилам расширения для кавычек, если в качестве ограничителя использованы апострофы! $home = qxecho home is $HOME; возьмет переменную $HOME из командного интерпретатора, а не из Perl! Итак, единственный способ добиться расширения произвольных выражений - расширить ${} или @{}, в чьих блоках присутствуют ссылки.

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

some func("What you want is @{[ split /./, $rec ]} items");