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

Question

J'ai vu beaucoup de façons d'exécuter du code Perl ou des scripts, avec différents drapeaux. Cependant, lorsque j'essaie de rechercher sur Google la signification de chaque drapeau, j'obtiens principalement des résultats vers des sites Perl génériques et aucune information spécifique concernant les drapeaux ou leur utilisation n'y est trouvée.

Voici les drapeaux que je rencontre le plus souvent, et dont je n'ai pas la moindre idée de la signification :

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

Je vous serais très reconnaissant de me dire ce que chacun de ces éléments signifie et de me présenter des cas d'utilisation, ou du moins de m'indiquer un moyen de trouver leur signification.

Answer 1

Oui, Google est notoirement difficile pour rechercher la ponctuation et, malheureusement, Perl fait semblent être principalement constituées de ponctuation :-)

Les commutateurs de ligne de commande sont tous détaillés dans perlrun (disponible en ligne de commande en appelant perldoc perlrun ). Je passe brièvement en revue les options, une par une :

• -p : Place une boucle d'impression autour de votre commande afin qu'elle agisse sur chaque ligne de l'entrée standard. Utilisé principalement pour que Perl puisse battre Awk en termes de puissance ET de simplicité :-)
• -n : Place une boucle non-imprimante autour de votre commande.
• -e : Permet de fournir le programme en argument plutôt que dans un fichier. Vous ne voulez pas avoir à créer un fichier script pour chaque petit one-liner Perl.
• -i : Modifie votre fichier d'entrée sur place (en faisant une sauvegarde de l'original). Pratique pour modifier des fichiers sans la fonction {copy, delete-original, rename} 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 "tainted" (douteux) comme des avertissements (le mode taint correct fera une erreur sur ce code douteux). Utilisé pour renforcer la sécurité de Perl, en particulier lors de l'exécution de code pour d'autres utilisateurs, comme setuid scripts ou des trucs web.

Answer 2

Le site -p exécute fondamentalement le script avec

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

-e vous permet de passer un script en tant que paramètre plutôt que comme un fichier :

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

-i indique à l'interpréteur que toutes les données passées à STDIN par le script en cours d'exécution doit se faire sur place.

-w est la même chose que use warnings; mais dans un cadre mondial plutôt que local

-d exécute le débogueur Perl

Answer 3

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

Le 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, <ARGV> utilise un open à 2 arguments, donc n'ayez pas de noms de fichiers qui commencent par > < ou commencer/terminer avec | .

Answer 4

Il y a aussi un drapeau important -n qui n'est pas mentionné dans la liste.

-n fonctionne de la même manière que -p mais il n'y a pas d'impression $_ par défaut. Cela peut être très utile pour filtrer les fichiers texte.

De cette façon, Perl peut remplacer grep | sed en une seule phrase.

Par exemple :

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

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

Answer 5

Guide utile de certaines des options de ligne de commande de Perl sur perl.com.