Флаги Perl -pe, -pi, -p, -w, -d, -i, -t?

Я видел множество способов запуска кода или скриптов Perl с разными флагами. Однако, когда я пытаюсь найти в Google значение каждого флага, я в основном получаю результаты для общих сайтов Perl, и никакой конкретной информации о флагах или их использовании там не обнаружено.

Ниже приведены флаги, с которыми я сталкиваюсь чаще всего, и я понятия не имею, что они означают:

• perl -pe
• perl -pi
• perl -p
• perl -w
• perl -d
• perl -i
• perl -t

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

Да, Google , как известно , трудно отрываясь знаки препинания и, к сожалению, Perl делает похоже, в основном состоит из знаков препинания :-)

Все параметры командной строки подробно описаны в perlrun . (доступно из командной строки, вызвавperldoc perlrun )

Вкратце перейдем к вариантам, один за другим:

-p: помещает цикл печати вокруг вашей команды, чтобы она действовала на каждом
    строка стандартного ввода. Используется в основном, чтобы Perl мог превзойти
    срывает awk с точки зрения мощности и простоты :-)
-n: помещает непечатаемую петлю вокруг вашей команды.
-e: позволяет вам указать программу в качестве аргумента.
    чем в файле. Вы не хотите создавать сценарий
    файл для каждого маленького однострочника Perl.
-i: изменяет ваш входной файл на месте (делая резервную копию
    оригинал). Удобно изменять файлы без {copy,
    удалить оригинал, переименовать} процесс.
-w: активирует некоторые предупреждения. Любой хороший программист Perl будет использовать это.
-d: запускается под отладчиком Perl. Для отладки кода Perl,
    очевидно.
-t: обрабатывает определенный "испорченный" (сомнительный) код как предупреждения (собственно
    taint mode приведет к ошибке в этом сомнительном коде). Раньше говядину
    повысить безопасность Perl, особенно при запуске кода для других
    пользователей, таких как сценарии setuid или веб-файлы.

-pФлаг в основном запускает скрипт с

while (<>) {
# exec here
}
continue {
    print or die "-p destination: $!\n";
}

-e позволяет передать скрипт в STDIN

perl -e '$x = "Hello world!\n"; print $x;'

-iуказывает интерпретатору, что все данные, передаваемые STDINисполняющимся скриптом, должны выполняться на месте.

-wто же самое use warnings;, но в глобальной, а не локальной области

-d запускает отладчик Perl

Другие упомянули perlrun. Если вы используете B :: Deparse, вы можете увидеть, что это означает (для большинства вещей):

$ perl -MO=Deparse   -p  -e 1
LINE: while (defined($_ = <ARGV>)) {
    '???';
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

1 обозначается символом «???», потому что он оптимизирован.

$ perl -MO=Deparse   -p -i  -e 1
BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
    '???';
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

-i устанавливает $ ^ I, например

$ perl -MO=Deparse   -p -i.bak  -e 1
BEGIN { $^I = ".bak"; }
LINE: while (defined($_ = <ARGV>)) {
    '???';
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

Но помните, что <ARGV> использует открытие с двумя аргументами, поэтому не используйте имена файлов, которые начинаются > <или начинаются / заканчиваются на |.

Также есть один важный флаг, -nкоторый не упоминается в списке.

-nработает так же -p, только $_по умолчанию не печатает . Это может быть очень полезно при фильтрации текстовых файлов.

Таким образом, Perl может заменить grep | sedоднострочным.

Например:

perl -ne 'print "$1\n" if /Messages read: (\d+)/' <my_input.txt

Распечатает все целочисленные значения, найденные после «Сообщения прочитаны:», и не более того.