Некоторые сведения о Perl 5/Приложения

← Работа со строками и регулярные выражения	Глава
Приложения

---

Специальные переменные и массивы

Переменная	Псевдоним	Описание	Переменная	Псевдоним	Описание
$_	$ARG	Используется по умолчанию во всех функциях и операциях, в том числе: в операциях поиска, замены и транслитерации, когда не используется операция связывания =~ или !~; в качестве области ввода в конструкциях while(<>) {...}; в качестве параметра для функций chop, print, split и других подобных; в цикле foreach, если переменная цикла не задана явно.	$nnгде n – десятичная цифра		Хранит результат раскрытия n-ой группы последнего шаблона регулярного выражения
$&	$MATCH	Часть строки, найденная при последнем удачном сопоставлении с шаблоном регулярного выражения	$`	$PREMATCH	Часть строки, стоящая до $& при последнем удачном сопоставлении с шаблоном регулярного выражения
$'	$POSTMATCH	Часть строки, стоящая после $& при последнем удачном сопоставлении с шаблоном регулярного выражения	$+	$LAST_PAREN_MATCH	Содержит результат раскрытия самой последней группы захвата последнего шаблона регулярного выражения
$*	$MULTILINE_MATCHING	Когда установлена в 0, процессор регулярных выражений всегда работает в многострочном режиме, кроме случаев, когда режим указан явно. В настоящее время считается устаревшей. Используйте вместо этой переменной модификаторы	$.	$NR $INPUT_LINE_NUMBER	Хранит номер последней удачно прочитанной строки последней операции чтения из файла
$/	$RS $INPUT_RECORD_SEPARATOR	Хранит разделитель записей по умолчанию для чтения из файлов. Разделитель может быть строкой. Если значение переменной неопределенное, то признаком по умолчанию считается символ конца потока EOF	$|	$OUTPUT_AUTOFLUSH	Если установлена в 0, то указывает, что вывод в файл функциями print и write всегда должен буферизироваться. Для отмены буферизации следует присвоить переменной ненулевое значение
$,	$OFS $OUTPUT_FIELD_SEPARATOR	Разделитель полей выходных записей для функции print. По умолчанию инициирована пустой строкой, т.е. выводимые поля выводятся друг за другом, никак не разделяясь	$\	$ORS $OUTPUT_RECORD_SEPARATOR	Разделитель, добавляемый в конец каждого вывода функции print. По умолчанию это символ перевода строки
$"	$LIST_SEPARATOR	Используется, когда функции print передается массив. Символ этой переменной будет использоваться как разделитель элементов массива. По умолчанию это пробел	$;	$SUBSEP $SUBSCRIPT_SEPARATOR	Символ, используемый в качестве символа-разделителя при эмуляции многомерного массива. По умолчанию это символ \034. Другими словами, интерпретатор, встретив запись $arr{"i","j"}, развернет ее в $arr{"i" . $; . "j"}
$#	$OFMT	Формат по умолчанию, используемый для вывода чисел. По умолчанию равен %.20g. Не рекомендован к использованию в Perl 5 и выше	$%	$FORMAT_PAGE_NUMBER	Хранит номер страницы текущего файла вывода
$=	$FORMAT_LINES_PER_PAGE	Длина текущей страницы файла вывода. По умолчанию равен 60	$-	$FORMAT_LINES_LEFT	Число строк, оставшихся на текущей странице текущего файла вывода
$~	$FORMAT_NAME	Имя текущего формата для текущего файла вывода. По умолчанию равна дескриптору текущего файла вывода	$^	$FORMAT_TOP_NAME	Имя текущего формата заголовка страницы для текущего файла вывода. По умолчанию равняется имени дескриптора текущего файла вывода с суффиксом _TOP
$:	$FORMAT_LINE_BREAK_CHARACTERS	Текущее множество символов переноса слова. Используется в форматах для полей помеченных через ^, чтобы обозначить такие символы, до которых подсчитываются символы для переноса строк. По умолчанию переменная инициализирована тремя символами: пробелом, символом новой строки и символом тире	$^L	$FORMAT_FORMFEED	Признак переход на новую страницу, используемый в форматах. По умолчанию это символ \f
$^A	$ACCUMULATOR	Аккумулятор, используемый функцией write для временного хранения выводимых отформатированных строк	$?	$CHILD_ERROR	Используется для хранения кода возврата последней операции qx{}, операции закрытия программного канала или вызова функции system(). Хранит 16-битное число, в котором первые 8 бит хранят код возврата, а вторые 8 бит — дополнительную системную информацию
$!	$ERRNO $OS_ERROR	Хранит значение, возвращаемое системной функцией. В числовом контексте хранит код сообщения, а в текстовом — текстовое описание	$^E	$EXTENDED_OS_ERROR	Информация о системной ошибке, специфичной для операционной системы. В большинстве ситуаций совпадает с $!
$@	$EVAL_ERROR	Сообщение об ошибке, сгенерированное в результате последнего неудачного вызова eval(). В случае успеха хранит 0	$$	$PID $PROCESS_ID	Идентификатор процесса выполняющегося интерпретатора perl
$<	$UID $REAL_USER_ID	Действительный идентификатор процесса интерпретатора	$>	$EUID $EFFECTIVE_USER_ID	Эффективный идентификатор процесса интерпретатора
$(	$GID $REAL_GROUP_ID	Действительный идентификатор группы процесса интерпретатора	$)	$EGID $EFFECTIVE_GROUP_ID	Эффективный идентификатор группы процесса интерпретатора
$0	$PROGRAM_NAME	Имя исполняющего файла, содержащего исходный код программы Perl	$[		Указывает на то, что считать первым элементом любого массива и любой строки. По умолчанию 0
$]	$PERL_VERSION	Номер версии интерпретатора perl	$^D	$DEBUGGING	Текущее значение флагов отладки, переданных в интерпретатор опцией -D
$^F	$SYSTEM_FD_MAX	Максимальный номер дескриптора для файла системы. Обычно равен 2	$^H		Хранит информацию о том, какие проверки выполняются директивой strict
$^I	$INPLACE_EDIT	Хранит расширение резервных файлов при операции записи, если интерпретатор был вызван с опцией -i<суфффикс>	$^M		Используется, если интерпретатор был скомпилирован с опцией, позволяющей создание резервного буфера памяти
$^O	$OSNAME	Имя операционной системе, в которой данный интерпретатор был скомпилирован	$^P	$PERLDB	Хранит флаги отладчика. Если отладчик отключен, то хранит 0
$^R		Результат последнего удачного выполнения конструкции (?{<код>}), которая включает код Perl в шаблоны регулярных выражений	$^T	$BASETIME	Время запуска программы относительно начала эпохи
$^W	$WARNING	Если установлено в 0, то подавляет вывод предупреждающих сообщений, иначе разрешает. Аналогична передачи опции -w	$^X	$EXECUTABLE_NAME	Имя, по которому была вызвана выполняющая программа
$ARGV		Имя текущего файла при чтении из <> (т.е. без явного указания дескриптора)	@ARGV		Массив с аргументами, переданными программе командной оболочкой
@INC		Массив каталогов, в которых следует просматривать сценарии Perl, подлежащие выполнению в конструкциях do <имя-файла>, require или use.	@_		В процедуре/функции хранит список переданных аргументов
%INC		Хранит имена файлов, подключенных через do <имя-файла> и require. В этом хеше ключом является аргумент функции, а значением — путь к подключенному файлу	%ENV		Хранит переменные среды исполнения
%SIG		Хранит настройки для обработки сигналов, где ключом хеша является имя сигнала, а значением его обработчик	@EXPORT		Имена пакетов, экспортируемых пакетом по умолчанию
@EXPORT_OK		Имена пакетов, которые вызывающая программа может экспортировать по запросу	ARGV		Дескриптор файла, ассоциированный с текущим файлом ввода. Если файла передавались в @ARGV, то будет последовательно ассоциироваться с каждым из них при каждом новом чтении
DATA		Специальный дескриптор, ассоциированный с частью файла, после лексемы __END__.	STDIN		Дескриптор стандартного файла ввода
STDOUT		Дескриптор стандартного файла вывода	STDERR		Дескриптор стандартного файла вывода ошибок

Основные опции интерпретатора perl

Интерпретатор вызывается в общем виде так:

perl [список-опций-интерпретатора] [--] [исходный-файл-программы] [аргументы-программы]

Ниже в таблице приведены основные опции интерпретатора.

Опция	Описание
-0[nnn]	Задает разделитель записей файла ввода, устанавливая значение для переменной $/. Если аргумент для опции не задан, то будет присвоено значение \0, иначе код разделителя можно задать в форме восьмеричного числа nnn
-a	Включает режим авторазбиения строки ввода при совместном использовании с опцией -n или -p. Результат будет помещаться в массив @F. Если разделитель не указан через опцию -F, то будет использоваться пробел как разделитель
-c	Запускает интерпретатор в режиме проверки синтаксиса программы без её исполнения.
-d[:модуль]	Запускает сценарий в режиме отладки под управлением модуля отладки или трассировки, установленного как Devel::модуль
-D[число/список]	Устанавливает флаги отладки
-e '<код-Perl>'	Позволяет передать код Perl не через исходный файл, а прямо через эту опцию. Обычно используется, когда программа состоит из небольшого числа строк. Допускается использование нескольких опций -e в одном вызове
-F /<шаблон>/	Задает шаблон регулярного выражения для вычисления разделителя при автоматической разбивке слов с помощью опции -a. По умолчанию задает пробел в качестве разделителя. В этой опции символы / можно опускать
-i[расширение]	Задает режим редактирования файла по месту. Используется совместно с опциями -n или -p. Редактирование выполняется по следующей схеме: файл переименовывается путем добавление к оригинальному имени суффикса расширение (если не задано, то этот этап пропускается); открывается файл вывода с именем исходного файла и все операции print пишут в этот новый файл
-Iкаталог	Задает каталог поиска сценариев Perl, выполняемых операциями do, require и use. Каждый каталог добавляется в массив @INC
-l[nnn]	Включает автоматическую обработку концов строк слова. Обычно используется с опциями -n или -p для автоматического удаления завершающего символа $/. Либо используется для переопределения переменной $\. Восьмеричный код nnn задает символ разделителя. Если он не указан, то будет использоваться текущее значение переменной $/
-m[-]модуль -M[-]модуль -[mM][-]модуль=парам1[,парам2]...	Выполняет вызов use модуль () (-m) или use модуль (-M) до выполнения основного кода. Если указан дефис -, то use заменяется на no. Третья форма позволяет передать также параметры
-n	Неявно запускает переданный код в цикле while (<>) { # ... переданный код } Обычно эта опция используется, когда программе передаются в аргументах файлы, которые нужно по очереди обработать одинаковым образом. Эта опция эмулирует sed -n и awk
-p	Аналогичен -n, но добавляет печать каждой обрабатываемой строки, как в sed: while (<>) { # ... переданный код } continue { print or die "-p destination: $!\n"; }
-P	Перед компиляцией сценарий Perl обрабатывается препроцессором Си, что позволяет в исходном коде использовать директивы #include, #define, #if, #else и другие. Если задана опция -I, то файлы будут просматриваться в этой директории для директивы #include
-s	Включает режим синтаксического анализа вызова командной строки на наличие после имени файла с исходным кодом Perl (до списка с именами файлов) пользовательских опций (т.е. строк, начинающихся на дефис). Такие опции автоматически извлекаются из массива @ARGV, оставляя в нем только список файлов, и помещаются в одноименные переменные
-S	Поиск файла программы Perl осуществляется с помощью переменной окружения PATH
-T	Включает режим проверки на безопасность полученных извне данных в операциях с файловой системой
-u	Создание дампа ядра после компиляции сценария Perl. Последующее использование undump позволяет создать двоичный выполняемый файл сценария
-U	Разрешает выполнение небезопасных операций
-v	Отображает номер версии интерпретатора perl
-V[:переменная]	Отображает информацию о конфигурации интерпретатора perl. Если задано имя переменной среды, отображает её текущее значение
-w	Включает режим отображения предупреждений во время компиляции программы Perl
-x[каталог]	Извлекает и выполняет программу Perl, расположенную в текстовом файле в произвольном месте между шебангом и лексемой __END__. Если задан каталог, то перед исполнением сценария он становится текущим

Отладка

Запуск интерпретатора в режиме отладки

В этом разделе мы рассмотрим стандартный консольный отладчик perl. В дистрибутивной поставке ActiveState отладчик поставляется в более удобном виде с графическим интерфейсом.

Для запуска отладчика нужно передать интерпретатору опцию -d:

$ perl -d ./source.pl

Пусть у нас есть такая программа

# Файл: source.pl
use strict;

our $global_var = 5;
our $global_var_1 = 7;

{
    local $global_var = 6;
    my $my = 10;
    my @arr = ( local $global_var_1, '5' );
}

sub procedure {
    foreach my $el ('four', 'five', 'six') {
        print "$el", "\n";
    } 
}

sub procedure1 {
    foreach my $el (@_) {
        print "$el", "\n";
    }
}

foreach my $el ('one', 'two', 'three') {
    print "$el", "\n";
}

procedure();

procedure1 '1', '2', '3';

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

$ perl -d ./source.pl

Loading DB routines from perl5db.pl version 1.60
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(./source.pl:5):  our $global_var = 5;
  DB<1>

Если не заданы точки останова, то отладчик остановится на первом операторе программы, которым является в этом примере our $global_var = 5;. Отладчик выводит приглашение для ввода команд. Для получения быстрой справки по командам используйте однобуквенную команду h [<команда>]. Чтобы выйти из отладчика и завершить программу, используйте команду q или сочетание Ctrl + D.

Ввод пустой команды дублирует ввод последней команды.

Консольный отладчик достаточно прост. Для уверенного использования вам нужно выучить несколько ходовых команд.

Команда	Описание
l [<аргумент>]	Выводит исходный код программы. Без аргумента выводит 10 строк исходного файла, начиная с точки, где сейчас остановилось исполнение. Каждый последующий вызов без аргументов будет выводить следующие 10 строк, пока исходный код не кончится. Чтобы поменять точку отсчета для вывода, используйте l <номер-строки>, тогда будет выведена эта строка и сменится точка отсчета. Чтобы вывести текст программы с произвольной точки, используйте l <номер-строки>+<сколько-строк-вывести-еще>; l <начальная-строка>-<конечная-строка> – печать диапазона строк; l <имя-процедуры> – печать начальной части процедуры. Вместо номеров можно вводить идентификаторы, тогда отладчик будет выводить первое вхождение этого объекта в программе и еще несколько строк после него.
-	Печать предыдущего блока из 10 строк
s [<выражение>]	Без аргумента сдвигает точку исполнения на следующий оператор и отображает оператор, который будет исполнен следующим. Если следующий оператор требует входа в модуль или процедуру, то команда продолжит трассировку с заходом внутрь
n [<выражение>]	Работает аналогично s, но без захода внутрь процедур
r	Внутри процедуры продолжает исполнение до выхода из неё и перемещает точку следования на следующий оператор за её вызовом
c [<строка>|<процедура>]	Без аргументов продолжает исполнение программы до следующей точки останова или до конца программы, если ни одной точки не было встречено. Указав аргумент, можно продолжить исполнение до конкретного места: строки или процедуры

Ниже показан небольшой сеанс отладки. Обратите внимание, что переходить можно только на точки следования, т.е. строки, в которых рядом с номерами стоит символ двоеточия :.

main::(./source.pl:5):  our $global_var = 5;
  DB<1> s  # идем дальше
main::(./source.pl:6):  our $global_var_1 = 7;
  DB<1> l  # выводим следующие 10 строк
6==>    our $global_var_1 = 7;   # текущая точка исполнения помечается стрелкой
7
8       {
9:          local $global_var = 6;
10:         my $my = 10;
11:         my @arr = ( local $global_var_1, '5' );
12      }
13
14      sub procedure {
15:         foreach my $el ('four', 'five', 'six') {
  DB<2> c 10   # продолжаем исполнение до 10-й строки
main::(./source.pl:10):     my $my = 10;
  DB<3> l      # печатаем еще 10 строк
10==>       my $my = 10;
11:         my @arr = ( local $global_var_1, '5' );
12      }
13
14      sub procedure {
15:         foreach my $el ('four', 'five', 'six') {
16:             print "$el", "\n";
17          }
18      }
19
  DB<4> c procedure  # продолжаем исполнение до вызова процедуры procedure
one
two
three
main::procedure(./source.pl:15):            foreach my $el ('four', 'five', 'six') {
  DB<5> r   #  выходим из процедуры
four
five
six
void context return from main::procedure
main::(./source.pl:32): procedure1 '1', '2', '3';  # Обратите внимание, что следующая точка следования переместилась на оператор 32 строки
  DB<6> n   # выполняем код второй процедуры без захода в неё
1
2
3
Debugged program terminated.  Use q to quit or R to restart,    # Программа кончилась и отладка завершилась
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.

Исследование данных программы

Для печати значений переменных служат две команды:

V [<пакет> [<список-переменных>]]

# Аналогична 'V', но печатает переменные текущего пакета
X [<список-переменных>]

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

Еще одной полезной функцией является режим трассировки переменных, который автоматически печатает переменные в момент, когда они меняют значение. Режим трассировки включается и отключается командой t. По умолчанию он выключен.

Ниже показан фрагмент сеанса отладки.

$ perl -d ./source.pl

Loading DB routines from perl5db.pl version 1.60
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(./source.pl:5):  our $global_var = 5;
  DB<1> c 6
main::(./source.pl:6):  our $global_var_1 = 7;
  DB<2> X global_var
$global_var = 5
  DB<3> V main global_var
$global_var = 5
  DB<4> s
main::(./source.pl:9):      local $global_var = 6;
  DB<5> X ~global+    # Можно использовать регулярные выражения, если начать с символа ~ или ! (для негативной проверки)
$global_var = 5
$global_var_1 = 7
  DB<6> t             # Включаем трассировку переменных
Trace = on
  DB<7> c
main::(./source.pl:9):      local $global_var = 6;
main::(./source.pl:10):     my $my = 10;
main::(./source.pl:11):     my @arr = ( local $global_var_1, '5' );
main::(./source.pl:26): foreach my $el ('one', 'two', 'three') {
main::(./source.pl:27):     print "$el", "\n";
one
main::(./source.pl:27):     print "$el", "\n";
two
main::(./source.pl:27):     print "$el", "\n";
three
main::(./source.pl:30): procedure();
main::procedure(./source.pl:15):            foreach my $el ('four', 'five', 'six') {
main::procedure(./source.pl:16):                print "$el", "\n";
four
main::procedure(./source.pl:16):                print "$el", "\n";
five
main::procedure(./source.pl:16):                print "$el", "\n";
six
main::(./source.pl:32): procedure1 '1', '2', '3';
main::procedure1(./source.pl:21):           foreach my $el (@_) {
main::procedure1(./source.pl:22):               print "$el", "\n";
1
main::procedure1(./source.pl:22):               print "$el", "\n";
2
main::procedure1(./source.pl:22):               print "$el", "\n";
3
Debugged program terminated.  Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.

Расстановка точек останова

Точки останова позволяют определить точки следования, в которых программа должна останавливаться при наступлении некоторых условий. В простейшем случае исполнение останавливается в момент перехода на точку следования, на которой установлен останов.

Для создания точки останова используется команда

b                      # Создает точку останова в текущей точке следования
b <номер>              # Создает точку останова в указанной точке следования
b <номер> <условие>    # Создает точку останова в указанной точке при наступлении условия
b <имя-процедуры>      # Устанавливает точку останова на вызов процедуры

$ perl -d ./source.pl

Loading DB routines from perl5db.pl version 1.60
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(./source.pl:5):  our $global_var = 5;
  DB<1> b 10
  DB<2> b procedure
  DB<3> c
main::(./source.pl:10):     my $my = 10;
  DB<3> c
one
two
three
main::procedure(./source.pl:15):            foreach my $el ('four', 'five', 'six') {
  DB<3> c
four
five
six
1
2
3
Debugged program terminated.  Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.

Другие команды отладчика

Команда	Описание
T	Отображается содержимое стека вызванных процедур
w [<строка>]	Отображает блок строк вокруг заданной строки
.	Возврат к выполненной строке
f <файл>	Переключение на просмотр файла. Файл должен быть загружен
/<шаблон>/	Поиск строки по шаблону регулярного выражения; вперед от текущей точки. Завершающий разделитель может быть опущен
?<образец>?	Поиск строки по шаблону регулярного выражения; направление назад от текущей точки. Завершающий разделитель может быть опущен
L	Отображение всех установленных точек останова
S [[!]<шаблон>]	Вывод процедур, соответствующих или не соответствующих образцу
t	Включение/отключение режима трассировки
b [<строка>] [<условие>] b <процедура> [<условие>] b load <файл> b postpone <процедура> [<условие>] b compile <процедура>	Управление точками останова. Отдельно следует рассмотреть следующие точки останова: load — устанавливает точку останова на операторе require <файл>;; postpone — установка точки останова в первой строке процедуры после её компиляции; compile — остановка после компиляции процедуры.
d [<строка>]	Удаление точки останова с указанной строки
D	Удаление всех точек останова
a [<строка>] <команда>	Установка действий перед выполнением операторов строки
A	Удаление всех действий
W <выражение>	Добавление глобального наблюдаемого выражения
W	Удаление всех глобальных наблюдаемых выражений
x <выражение>	Вычисляет выражение в списковом контексте и отображает его значение
m <выражение>	Вычисляет выражение в списковом выражении, отображает методы, вызывавшиеся при вычислении первого элемента результата
m <класс>	Отображает вызываемые методы указанного класса
O [<опция>[=<значение>]] O [<опция>"<значение>"] O [<опция>?...]	Устанавливает или запрашивает значения опций отладчика. Эти опции влияют на поведение отладчика и режимы работы некоторых команд. Опций достаточно много, поэтому рекомендуется обращаться к справочной документации по отладчику
< <выражение>	Определение команды Perl, которая должна выполняться перед каждым приглашением отладчика ввести команду
<< <выражение>	Добавление команды в список команд Perl, которые должны выполняться перед каждым приглашением отладчика ввести команду
> <выражение>	Определение команды Perl, которая должна выполняться после каждого приглашения отладчика ввести команду
>> <выражение>	Добавление команды в список команд Perl, которые должны выполняться после каждого приглашения отладчика ввести команду
{ <команда>	Определение команды отладчика, которая должны выполняться перед каждым его выполнением ввести команду
{{ <команда>	Добавление команды отладчика в список команд, которые должны выполняться перед каждым его приглашением ввести команду
! <номер>	Выполнение предыдущей команды отладчика. Номер задает от первой выполненной команды
! -<номер>	Выполнение предыдущей команды отладчика. Номер задает отсчет от последней выполненной команды
! <шаблон>	Выполнение команды, которая начиналась со строки, удовлетворяющей регулярному выражению
!! <команда>	Выполнение команды в подпроцессе
H -<число>	Отображение последних выполненных команд. Без аргумента выводит все команды
p <выражение>	Эквивалентна команде print {DB::OUT} <выражение> в текущем пакете
|<команда>	Выполнение команды отладчика, направляя DB::OUT на текущий пейджер
||<команда>	Аналогична предыдущей команде, но только DB::OUT временно становится текщим
= [<псевдоним> <значение>]	Определяет псевдоним команды или отображает список текущих псевдонимов, если вызывается без аргументов
<команда>	Выполнение оператора Perl в текущем пакете
v	Отображает версии загруженных модулей
R	Перезагрузка отладчика, при этом некоторые его установки могут быть сброшены. Сохраняется история команд, точки останова и действия, установки отладчика командой O и опции команд -w, -I, -e
h [<команда>]	Получение общей справки или справки о команде
h h	Отображение всех команд отладчика

Отладка регулярных выражений

Для отладки регулярных выражений удобно использовать директиву

use re 'debug';

которая включает отладочную печать в момент компиляции регулярного выражения и в момент получения конечного результата по регулярному выражению. С помощью этой директивы вы увидите микропрограмму регулярного выражения и все этапы её исполнения. Например

use re 'debug';

"aaabbbaaa" =~ /[b]+/;

no re;  # Изолируем проверяемое регулярное выражение

В результате будет напечатано следующее

Compiling REx "[b]+"
Final program:
   1: PLUS (4)
   2:   EXACT <b> (0)
   4: END (0)
anchored "b" at 0..0 (checking anchored) plus minlen 1
Matching REx "[b]+" against "aaabbbaaa"
Intuit: trying to determine minimum start position...
  doing 'check' fbm scan, [0..9] gave 3
  Found anchored substr "b" at offset 3 (rx_origin now 3)...
  (multiline anchor test skipped)
  try at offset...
Intuit: Successfully guessed: match at offset 3
   3 <aaa> <bbbaaa>          |   0| 1:PLUS(4)
                             |   0| EXACT <b> can match 3 times out of 2147483647...
   6 <aaabbb> <aaa>          |   1|  4:END(0)
Match successful!
Freeing REx: "[b]+"

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

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

Подробно о том, как читать печать этой директивы, вы сможете найти на странице документации perldebguts.

Библиотечные модули Perl

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

Директивные модули

Модуль	Описание
attributes	Чтение/запись атрибутов подпрограмм и переменных
attrs	Чтение/запись атрибутов подпрограмм (устаревший)
autouse	Откладывает загрузку модуля до обращения к его функциям
base	Устанавливает IS-A-связь с базовым классом на этапе компиляции
blib	Позволяет обращаться к еще не инсталированным пакетам
bytes	Включает байтовое представление символов
charnames	Escape-последовательности для символов Unicode вида \N{имя}
constant	Декларация констант
diagnostics	Включает подробную диагностику предупреждений
fields	Создает поля класса на этапе компиляции
filetest	Управляет поведением функций, возвращающих атрибуты файлов
integer	Целочисленная арифметика вместо плавающей
less	Директивы компилятора
lib	Изменяет специальный массив @INC на этапе компиляции
locale	Включает/выключает национальную поддержку символов
open	Правила ввода-вывода по умолчанию
ops	Запрещает небезопасные операции при компиляции
overload	Переопределение операций языка
re	Управляет поведением регулярных выражений
sigtrap	Добавляет обработку сигналов
strict	Запрещает небезопасные конструкции языка
subs	Декларация имен подпрограмм
utf8	Включает кодировку символов UTF-8
vars	Декларация имен глобальных переменных (устаревшая)
warnings	Управляет выводом предупреждений

Базовые модули

Модуль	Описание
AnyDBM_File	Базовый модуль для библиотек управления базами данных
AutoLoader	Загрузка подпрограмм только по требованию
AutoSplit	Разбивает пакет на фрагменты для автозагрузки
B	Внутренняя реализация компилятора PERL
B::Asmdata	Таблицы генерации исполняемого байт-кода
B::Assembler	Транслятор байт-кода
B::Block	Прохождение базовых блоков исполняемого кода
B::Bytecode	Компилятор PERLа в байт-код
B::C	Компилятор PERLа в C
B::CC	Оптимизирующий компилятор PERLа в C
B::Debug	Прохождение синтаксического дерева программы с выводом отладочной информации
B::Deparse	Дискомпилятор байт-кода в PERL
B::Disassembler	Дизассемблер исполняемого кода
B::Lint	Модуль поиска подозрительных конструкций в PERL-программах
B::Showlex	Выводит имена лексических переменных в функциях и файлах
B::Stackobj	Вспомогательный модуль для B:CC
B::Stash	Вспомогательный модуль для компиляции PERL-программ в загрузочные модули
B::Terse	Прохождение синтаксического дерева программы с выводом краткой информации
B::Xref	Генератор таблиц перекрестных ссылок для PERL-программ
Benchmark	Подсчет времени выполнения того или иного фрагмента кода
ByteLoader	Загрузчик скомпилированного байт-кода
Carp	Вывод предупреждений и сообщений о фатальных ошибках
Carp::Heavy	Внутренняя реализация Carp
CGI	Реализация интерфейса CGI
CGI::Apache	Модуль совместимости CGI с Веб-сервером Apache
CGI::Carp	CGI-программы вывода серверного протокола ошибок HTTP
CGI::Cookie	Модуль работы с куки
CGI::Fast	Модуль совместимости CGI с Веб-сервером в стандарте Open Market FastCGI
CGI::Pretty	Модуль форматирования HTML-документов
CGI::Push	Модуль создания Веб-страниц, динамически обновляемых сервером (server push)
CGI::Switch	Устаревший модуль, больше не используется
Config	Настройка конфигурации perl'а
CPAN	Загрузка, компиляция и инсталяция модулей из CPAN
CPAN::FirstTime	Настройка конфигурации CPAN
CPAN::Nox	CPAN, не использующий скомпилированных расширений
Class::Struct	Создание классов, подобных структурам C
Cwd	Чтение/смена текущего каталога
Data::Dumper	Дамп структур данных
DB	Интерфейс к отладочным API (экспериментальный)
DB_File	Модуль связи с библиотекой доступа к базам данных Berkeley DB 1.x
Devel::DProf	Профиль исполнения PERL-программ
Devel::Peek	Средства отладки загрузочных модулей
Devel::SelfStubber	Генератор заглушек для SelfLoader
DirHanlde	Методы работы с каталогами
Dumpvalue	Экранный дамп данных
DynaLoader	Динамическая загрузка библиотек C
English	Мнемонические имена для специальных переменных
Env	Доступ к переменным окружения как к регулярным выражениям
Errno	Константы, связанные с номерами ошибок, из файла errno.h
Exporter	Реализация импорта для модулей
Exporter::Heavy	Внутренняя реализация Exporter
ExtUtils::Command	Утилиты, заменяющие команды Unix в других ОС
ExtUtils::Embed	Утилиты для вызова PERLа из программ на C/C++
ExtUtils::Install	Инсталяция модулей PERL
ExtUtils::Installed	Управление инсталированными модулями
ExtUtils::Liblist	Определяет, какие библиотеки C использовать и как
ExtUtils::MakeMaker	Генератор makefile'ов для компиляции и инсталяции модулей
ExtUtils::Manifest	Генератор файлов-манифестов
ExtUtils::Miniperl	Внутренний модуль ExtUtils::MakeMaker
ExtUtils::Mkbootstrap	Генератор файла загрузки для DynaLoader
ExtUtils::Mksymlists	Генератор файлов управления компоновкой динамических расширений
ExtUtils::MM_Cygwin	Настройка ExtUtils::MakeMaker для библиотеки Cygwin
ExtUtils::MM_OS2	Настройка ExtUtils::MakeMaker для OS/2
ExtUtils::MM_Unix	Настройка ExtUtils::MakeMaker для Unix
ExtUtils::MM_Win32	Настройка ExtUtils::MakeMaker для Windows
ExtUtils::Packlist	Управление файлами .packlist
ExtUtils::testlib	Модуль для тестирования библиотек-расширений
Fatal	Генератор фатальных ошибок при неудачном завершении функций PERLа
Fcntl	Константы, связанные с управлением файлами, из файла fcntl.h
File::Basename	Разбивка спецификации файла на составные части
File::CheckTree	Различные проверки файлов в дереве каталогов
File::Compare	Сравнение файлов или указателей файлов
File::Copy	Копирование файлов или указателей файлов
File::DosGlob	Работа с именами файлов DOS, содержащими подстановочные знаки
File::Find	Поиск файлов по дереву каталогов
File::Glob	Работа с именами файлов FreeBSD, содержащими подстановочные знаки
File::Path	Создание/удаление групп каталогов
File::Spec	Системно-независимые операции со спецификациями файлов
File::Spec::Functions	Системно-независимые операции со спецификациями файлов
File::Spec::Mac	Операции со спецификациями файлов для MacOS
File::Spec::OS2	Операции со спецификациями файлов для OS/2
File::Spec::Unix	Операции со спецификациями файлов для Unix
File::Spec::VMS	Операции со спецификациями файлов для VMS
File::Spec::Win32	Операции со спецификациями файлов для Windows
File::stat	Доступ к атрибутам файлов по именам
FileCache	Позволяет открыть больше файлов, чем разрешено системой
FileHandle	Методы работы с файлами
FindBin	Возвращает путь к исполняемым файлам perl
GBDM_File	Модуль связи с библиотекой доступа к базам данных gdbm
Getopt::Long	Расширенная обработка командных строк
Getopt::Std	Обработка односимвольных опций в командных строках
I18N::Collate	Сравнение строк в национальной кодировке. Устарел
IO	Модуль, загружающий остальные модули ввода-вывода
IO::Dir	Объектные методы работы с каталогами
IO::File	Объектные методы работы с файлами
IO::Handle	Внутренний модуль ввода-вывода
IO::Pipe	Объектные методы коммуникации между процессами
IO::Poll	Объектные методы системных опросов
IO::Seekable	Методы позиционирования в файлах
IO::Select	Методы управления вводом-выводом
IO::Socket	Обектный интерфейс для работы с сокетами
IO::Socket::INET	Обектный интерфейс для работы с сокетами TCP и UDP
IO::Socket::UNIX	Обектный интерфейс для работы с сокетами Unix
IPC::Msg	Межпроцессные сообщения в System V IPC
IPC::Open2	Открытие процесса для чтения и записи
IPC::Open3	Открытие процесса для чтения, записи и обработки ошибок
IPC::Semaphore	Семафоры в System V IPC
IPC::SysV	Константы System V IPC
Math::BigFloat	Модуль работы с плавающими числами любого размера
Math::BigInt	Модуль работы с целыми числами любого размера
Math::Complex	Модуль работы с комплексными числами
Math::Trig	Тригонометрические функции
Net::hostent	Доступ по имени к свойствам результата функций gethost*()
Net::netent	Доступ по имени к свойствам результата функций getnet*()
Net::Ping	Проверяет доступность удаленного хоста операцией ping
Net::protoent	Доступ по имени к свойствам результата функций getproto*()
Net::servent	Доступ по имени к свойствам результата функций getserv*()
NBDM_File	Модуль связи с ndbm-файлами
O	Доступ к компилятору PERL
OBDM_File	Модуль связи с odbm-файлами
Opcode	Внутренний модуль компилятора PERL
POSIX	Доступ к именам, определенным стандартом POSIX 1003.1 для библиотек C
Pod::Checker	Проверка pod-документов на синтаксические ошибки
Pod::Find	Поиск pod-файлов в дереве каталогов
Pod::Html	Конвертор pod-документов в формат HTML
Pod::InputObjects	Внутренний модуль для Pod::Parser
Pod::Man	Конвертор pod-документов в формат ввода для *roff
Pod::Parser	Базовый класс для фильтров и трансляторов POD
Pod::ParseUtils	Внутренний модуль для Pod::Parser
Pod::Plainer	Конвертор pod-документов в старый формат POD
Pod::Select	Извлечение отдельных секций POD
Pod::Text	Конвертор pod-документов в текстовый формат
Pod::Text::Color	Конвертор pod-документов в текстовый формат с выделением цветом
Pod::Text::Termcap	Конвертор pod-документов в текстовый формат с выделением управляющими кодами терминала
Pod::Usage	Вывод сообщения на консоль
Safe	Компиляция и исполнение программы при определенных ограничениях
SBDM_File	Модуль связи с sdbm-файлами
Search::Dict	Поиск ключа в файле словаря
SelectSaver	Сохранение/восстановление указателя файла
SelfLoader	Загрузка функций только по требованию
Shell	Запуск системного процессора команд из PERL-программ
Socket	Константы, связанные с сокетами, из файла socket.h
Symbol	Манипулирование символами PERL и их именами
Term::ANSIColor	Управление цветами терминала
Term::Cap	Управление терминалом
Term::Complete	Автодополнение слов, выводимых на терминал
Term::ReadLine	Интерфейс для ввода строк с консоли
Test	Оболочка для создания тестовых сценариев
Test::Harness	Прогон стандартных тестов с выводом статистики
Text::Abbrev	Создание таблицы сокращений для списка
Text::ParseWords	Разбивка текста на слова
Text::Soundex	Индексация английских слов упрощенными фонетическими ключами
Text::Tabs	Преобразование табуляций в пробелы и обратно
Text::Wrap	Автоматический разрыв длинных строк
Thread	Модуль управления потоками Windows (экспериментальный)
Thread::Queue	Реализация очередей для многопоточной среды
Thread::Semaphore	Реализация семафоров для многопоточной среды
Thread::Signal	Создание отдельного потока для обработки сигналов
Thread::Specific	Создание уникальных ключей для потоков
Tie::Array	Базовый класс для связанных массивов
Tie::Handle	Базовый класс для связанных описателей файлов
Tie::Hash	Базовый класс для связанных ассоциативных массивов
Tie::RefHash	Использование ссылок в качестве ключей ассоциативных массивов
Tie::Scalar	Базовый класс для связанных скаляров
Tie::SubstrHash	Ассоциативные массивы с ключами и записями постоянной длины
Time::gmtime	Доступ по имени к свойствам результата функции gmtime()
Time::Local	Преобразование даты и времени в количество миллисекунд
Time::localtime	Доступ по имени к свойствам результата функции localtime()
Time::tm	Внутренний модуль для Time::gmtime и Time::localtime
UNIVERSAL	Базовый класс для управления ссылками на объекты
User::grent	Доступ по имени к свойствам результата функций getgr*()
User::pwent	Доступ по имени к свойствам результата функций getpw*()
XSLoader	Динамическая загрузка библиотек C

---

← Работа со строками и регулярные выражения

---