Sinalizadores de Perl -pe, -pi, -p, -w, -d, -i, -t?

Já vi muitas maneiras de executar códigos ou scripts Perl, com sinalizadores diferentes. No entanto, quando tento pesquisar no Google o que significa cada sinalizador, obtenho principalmente resultados para sites Perl genéricos e nenhuma informação específica sobre os sinalizadores ou seu uso é encontrada lá.

Abaixo estão as sinalizações que encontro com mais frequência e não tenho ideia do que significam:

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

Ficarei muito grato se você me disser o que cada um deles significa e alguns casos de uso para eles, ou pelo menos me dizer uma maneira de descobrir seu significado.

Sim, o Google é notoriamente difícil para procurar sinais de pontuação e, infelizmente, Perl não parecem ser maioritariamente constituído por pontuação :-)

As opções de linha de comando são todas detalhadas em perlrun . (disponível na linha de comando chamando perldoc perlrun)

Analisando as opções brevemente, uma por uma:

-p: coloca um loop de impressão ao redor do seu comando para que ele atue em cada
    linha de entrada padrão. Usado principalmente para que o Perl possa vencer o
    calças fora de moda em termos de poder E simplicidade :-)
-n: Coloca um loop não imprimível em torno de seu comando.
-e: Permite que você forneça o programa como um argumento, em vez
    do que em um arquivo. Você não quer ter que criar um script
    arquivo para cada pequena linha de Perl.
-i: Modifica seu arquivo de entrada no local (fazendo um backup do
    original). Útil para modificar arquivos sem a {cópia,
    excluir original, renomear} processo.
-w: Ativa alguns avisos. Qualquer bom programador Perl usará isso.
-d: é executado no depurador Perl. Para depurar seu código Perl,
    obviamente.
-t: trata certos códigos "contaminados" (duvidosos) como avisos (adequados
    o modo contaminado apresentará erro neste código duvidoso). Usado para carne
    a segurança do Perl, especialmente ao executar código para outros
    usuários, como scripts setuid ou coisas da web.

A -pbandeira basicamente executa o script com

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

-e permite que você passe um script para STDIN

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

-idireciona o intérprete para que todos os dados passados STDINpelo script em execução sejam executados no local.

-wé o mesmo que use warnings;, mas em um escopo global e não local

-d executa o depurador Perl

Outros mencionaram perlrun. Se você usar B :: Deparse, poderá ver o que significa (para a maioria das coisas):

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

1 é representado por '???', porque é totalmente otimizado.

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

-i define $ ^ I, gosto

$ 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

Mas lembre-se, <ARGV> usa 2 argumentos abertos, então não tenha nomes de arquivos que comecem com > <ou comecem / terminem com |.

Existe também um sinalizador importante -nque não é mencionado na lista.

-nfunciona da mesma forma -p, mas não imprime $_por padrão. Isso pode ser muito útil na filtragem de arquivos de texto.

Desta forma, Perl pode substituir grep | sedem uma única linha.

Por exemplo:

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

Irá imprimir todos os valores inteiros encontrados após "Mensagens lidas:" e nada mais.