Indicateurs Perl -pe, -pi, -p, -w, -d, -i, -t?

J'ai vu de nombreuses façons d'exécuter du code ou des scripts Perl, avec différents indicateurs. Cependant, lorsque j'essaie de rechercher sur Google ce que signifie chaque indicateur, j'obtiens principalement des résultats sur des sites Perl génériques et aucune information spécifique concernant les indicateurs ou leur utilisation ne s'y trouve.

Voici les drapeaux que je rencontre le plus souvent, et je n'ai aucune idée de ce qu'ils signifient:

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

Je vous serai très reconnaissant si vous me disiez ce que chacun de ces éléments signifient et quelques cas d'utilisation pour eux, ou au moins me dire un moyen de découvrir leur signification.

Oui, Google est notoirement difficile pour rechercher des signes de ponctuation et, malheureusement, Perl ne semble être principalement composé de ponctuation :-)

Les commutateurs de ligne de commande sont tous détaillés dans perlrun . (disponible depuis la ligne de commande en appelant perldoc perlrun)

Entrer brièvement dans les options, une par une:

-p: Place une boucle d'impression autour de votre commande pour qu'elle agisse sur chaque
    ligne d'entrée standard. Utilisé principalement pour que Perl puisse battre
    pantalon off awk en termes de puissance ET de simplicité :-)
-n: Place une boucle sans impression autour de votre commande.
-e: vous permet de fournir le programme comme argument plutôt
    que dans un fichier. Vous ne voulez pas avoir à créer un script
    fichier pour chaque petit one-liner Perl.
-i: modifie votre fichier d'entrée sur place (en effectuant une sauvegarde du
    original). Pratique pour modifier des fichiers sans la {copie,
    supprimer-original, renommer} processus.
-w: active certains avertissements. Tout bon codeur Perl l'utilisera.
-d: s'exécute sous le débogueur Perl. Pour déboguer votre code Perl,
    évidemment.
-t: traite certains codes "corrompus" (douteux) comme des avertissements (correct
    le mode taint fera une erreur sur ce code douteux). Utilisé pour le boeuf
    sécurité Perl, en particulier lors de l'exécution de code pour d'autres
    utilisateurs, tels que les scripts setuid ou des éléments Web.

L' -pindicateur exécute essentiellement le script avec

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

-e vous permet de transmettre un script à STDIN

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

-iindique à l'interpréteur que toutes les données transmises STDINpar le script en cours d'exécution doivent être effectuées sur place.

-west identique à use warnings;, mais dans une portée globale plutôt que locale

-d exécute le débogueur Perl

D'autres ont mentionné perlrun. Si vous utilisez B :: Deparse, vous pouvez voir ce que cela signifie (pour la plupart des choses):

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

1 est représenté par «???», car il est optimisé.

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

-i définit $ ^ I, comme

$ 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

Mais rappelez-vous que <ARGV> utilise 2 arguments open, donc ne pas avoir de noms de fichiers commençant par > <ou commençant / finissant par |.

Il existe également un indicateur important -nqui n'est pas mentionné dans la liste.

-nfonctionne de la même manière que -p, mais il ne s'imprime pas $_par défaut. Cela peut être très utile pour filtrer les fichiers texte.

De cette façon, Perl peut remplacer grep | seden une seule ligne.

Par exemple:

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

Affiche toutes les valeurs entières trouvées après "Messages lus:", et rien de plus.