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

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

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

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

-p: Places a printing loop around your command so that it acts on each
    line of standard input. Used mostly so Perl can beat the
    pants off awk in terms of power AND simplicity :-)
-n: Places a non-printing loop around your command.
-e: Allows you to provide the program as an argument rather
    than in a file. You don't want to have to create a script
    file for every little Perl one-liner.
-i: Modifies your input file in-place (making a backup of the
    original). Handy to modify files without the {copy,
    delete-original, rename} process.
-w: Activates some warnings. Any good Perl coder will use this.
-d: Runs under the Perl debugger. For debugging your Perl code,
    obviously.
-t: Treats certain "tainted" (dubious) code as warnings (proper
    taint mode will error on this dubious code). Used to beef
    up Perl security, especially when running code for other
    users, such as setuid scripts or web stuff.

Флаг -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

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