Введение в Perl

По умолчанию Полное Функция Интерполяция

– – – –

'' q{} Literal нет

"" qq{} Литерал да

`` qx{} Команда да

qw{} Список слов нет

// m{} Шаблон да

s{}{} Подстановка да

tr{}{} Трансляция нет

В строках допускающих интерполяцию имена переменных начинающиеся с символов '$' или '@' – интерполируются т.е. в строку вставляется значение строки или массива.

Данные последовательности символов имеют специальное значение:

t символ табуляции

n символ новой строки

r возврат

f перевод формата

v вертикальная табуляция

b backspace (забой)

a звонок

e escape

34 восьмеричный символ

x1a шестьнадцатеричный символ

c[ символ управления

l нижний регистр следующего символа

u верхний регистр следующего символа

L нижний регистр для всех символов до E

U верхний регистр для всех символов до E

E ограничитель смены регистра

Q отмена действия метасимволов до E

Шаблоны интерполируются как регулярные выражения. Это выполняется вторым проходом после интерполяции переменных поэтому в шаблоны можно вставлять переменные. Для отмены интерполяции используйте 'Q'. Если вы применяете вложенные ограничители то внутренние ограничители работать не будут.

?PATERN?

Действие этого оператора аналогично /шаблон/ но выполняется до первого совпадения. Это удобно для поиска наличия какой нибудь строки в одном или множестве файлов. Это не очень удачный оператор поэтому в следующих версиях Перл его возможно не будет.

m/PATERN/gimosx

/PATERN/gimosx

Поиск в строке по патерну (шаблону). В скалярном контексте возвращает логическое значение true (1) или false (''). Если строка не указана с помощью операторов '=~' или '!~' поиск ведется в строке $_

Опции:

g  – Глобальный поиск. Поиск всех вхождений.

i  – Сравнение не зависит от регистра (верхний или нижний)

m – Строка многострочна.

o – однопроходная компиляция

s – однострочная строка

x – используеются расширенные регулярные выражения.

Если '/' – ограничитель то начальное 'm' можно опустить. С помощью него в качестве ограничителя может быть любой символ кроме пробела.

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

Переменные $) и $| не интерполируются. Если вы хотите что бы такой шаблон интерполировался один раз – добавьте /o.

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

Если PATERN – нулевая строка то используется последнее регулярное выражение.

В скалярном контексте возвращается список элементы которого результаты выполнения выражений в скобках патерна ($1, $2, $3...).

Обратите внимание что первый елемент $1.

Пример:

$a = «/usr/local/perl/perl.bin»; # Анализируемая строка

Цель: Создать массив @dirs с именами директорий.

Решение:

Самый простой способ воспользоваться split('/'), но в качестве примера используем скобки.

@dirs =~ m[/(w*)/(w*)/(w*)/(w*)]

Здесь 'm[' – использовать квадратные скобки как ограничители.

(w*) – шаблон алфавитноцифровой последовательности.

В результате @dirs равен ('usr', 'local', 'perl')

Строка литералов. Не интерполируется. Внутри строки разрешается использовать ' или \ для обозначения символов ' и .

Пример:

print q#Привет.#; # Результат Привет.

print 'O'K'; # O'K

Интерполируемая строка.

Пример:

$var = 13;

print «$var = $var»;

Результат:

$var = 13

Сначала строка интерполируется а потом выполняется как системная команда.

Пример:

print `date`;

Результат:

Thu Nov 14 13:36:49 MSK 1996

Возвращает список элементы которого – слова строки разделенные пробелами.

Пример:

print qw/Построемся и спасемся!/; # ('Построемся','и','спасемся!')

Результат:

Построемсяиспасемся!

Часто применяется как:

use POSIX qw( setlocale localeconv )

@EXPORT = qw( proc1 var );

Поиск по шаблону и в случае успеха замена подстрокой.

Возвращает количество произведенных подстановок иначе false (0). Если строка в которой ведестя поиск не указана (операторы =~ или != ) то используется переменная $_ .

Если в качестве раделителя '/' исрользовать одинарную кавычку (') то интерполяции не будет иначе можно применять переменные в шаблоне или подстроке.

Опции:

e – Расмматривать правую часть как выражение.

g  – Глобальный поиск.

i  – Без различия регистра букв

m – многосточная переменная

o – компилировать шаблон один раз

s – однострочная переменная

x – расширенное регулярное выражение

Разделитель '/' можно заменить на любой алфавитно-цифровой символ кроме пробела.

Пример:

$var = «12345»; # исходная строка

$var =~ s/1/0/; # Заменить '1' на '0'. Результат 02345

$var =~ s(5)(.); # Заменить '5' на '.' Результат 0234.

Здесь в качестве разделителя применены скобки поэтому подстрока

взята в две скобки.

$var =~ s/d*/каламбур/; Заменить все цифры. Результат 'каламбур.'

$var =~ s/а/о/g; # Заменить все 'а' на 'о'. Результат 'коломбур.'

$var = «12 34»; # Новое значение

$var =~ s/(dd) (dd)/$2 $1/; # Поменять местами числа. Результат '34 12'.

tr/таблица1/таблица2/cds

y/таблица1/таблица2/cds

Замена всех символов из «таблица1» на соответсвующий символ из «таблица2». Результат – количество замен или стираний. Без оператора =~ или != операция выполняется с строкой $_. Для совместимости с программой sed вместо tr можно писать 'y'.

Опции:

c – дополнение «таблица1»

d – стереть найденные но не замененные символы.

s – «зжать» повторяющиеся замененные символы.

Если указана опция /dтаблица2 всегда интерпретируется как положено.

Другими словами если таблица2 короче чем таблица1 то символ из таблицы1 интерпретируется всегда. Если таблица2 – null то все символы строки остаются не изменненные. Это удобно для подсчета количества сиволов в строке определенного класса или для сжатия повторяющихся символов например пробелов.

Пример:

$s = «hello»; # Исходная строка

$s =~ tr/a-z/A-Z/; # Заменить малые буквы на большие. Результат

# 'HELLO'

$s = 'Hel....lo';

$s =~ tr/a-zA-z/_/c; # Заменить все не буквы на '_'