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

Ich habe viele Möglichkeiten gesehen, Perl-Code oder -Skripte mit unterschiedlichen Flags auszuführen. Wenn ich jedoch versuche zu googeln, was jede Flagge bedeutet, erhalte ich hauptsächlich Ergebnisse für generische Perl-Websites, und dort werden keine spezifischen Informationen zu den Flaggen oder ihrer Verwendung gefunden.

Unten sind die Flaggen aufgeführt, denen ich am häufigsten begegne, und ich habe keine Ahnung, was sie bedeuten:

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

Ich wäre Ihnen sehr dankbar, wenn Sie mir sagen würden, was diese jeweils bedeuten, und einige Anwendungsfälle für sie, oder mir zumindest einen Weg nennen, ihre Bedeutung herauszufinden.

Ja, Google ist notorisch schwierig für die Suche nach Interpunktion und leider Perl nicht scheint meist gemacht zu sein Interpunktion up :-)

Die Befehlszeilenoptionen sind alle in Perlrun aufgeführt . (über die Befehlszeile telefonisch verfügbar perldoc perlrun)

Gehen Sie kurz nacheinander auf die Optionen ein:

-p: Platziert eine Druckschleife um Ihren Befehl, sodass er auf jeden Befehl einwirkt
    Zeile der Standardeingabe. Wird meistens verwendet, damit Perl das schlagen kann
    Hosen aus awk in Bezug auf Leistung und Einfachheit :-)
-n: Platziert eine nicht druckbare Schleife um Ihren Befehl.
-e: Ermöglicht es Ihnen, das Programm eher als Argument anzugeben
    als in einer Datei. Sie möchten kein Skript erstellen müssen
    Datei für jeden kleinen Perl-Einzeiler.
-i: Ändert Ihre Eingabedatei an Ort und Stelle (erstellt eine Sicherungskopie der
    Original). Praktisch, um Dateien ohne die {Kopie zu ändern,
    Original löschen, umbenennen}.
-w: Aktiviert einige Warnungen. Jeder gute Perl-Codierer wird dies verwenden.
-d: Läuft unter dem Perl-Debugger. Zum Debuggen Ihres Perl-Codes
    offensichtlich.
-t: Behandelt bestimmten "verdorbenen" (zweifelhaften) Code als Warnungen (richtig)
    Der Taint-Modus tritt bei diesem zweifelhaften Code auf. Wird für Rindfleisch verwendet
    Erhöhen Sie die Perl-Sicherheit, insbesondere wenn Sie Code für andere ausführen
    Benutzer, wie z. B. Setuid-Skripte oder Web-Inhalte.

Das -pFlag führt das Skript grundsätzlich mit aus

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

-e ermöglicht es Ihnen, ein Skript an zu übergeben STDIN

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

-iWeist den Interpreter an, dass alle STDINvom ausführenden Skript übergebenen Daten an Ort und Stelle ausgeführt werden sollen.

-wist dasselbe wie use warnings;, jedoch in einem globalen und nicht in einem lokalen Bereich

-d führt den Perl-Debugger aus

Andere haben Perlrun erwähnt. Wenn Sie B :: Deparse verwenden, können Sie sehen, was es bedeutet (für die meisten Dinge):

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

1 wird durch '???' dargestellt, da es wegoptimiert ist.

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

-i setzt $ ^ I, wie

$ 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

Denken Sie jedoch daran, dass <ARGV> 2 offene Argumente verwendet. Verwenden Sie daher keine Dateinamen, die mit beginnen > <oder mit beginnen / enden |.

Es gibt auch eine wichtige Flagge, -ndie in der Liste nicht erwähnt wird.

-nfunktioniert genauso wie -p, nur $_wird standardmäßig nicht gedruckt . Dies kann beim Filtern von Textdateien sehr nützlich sein.

Auf diese Weise kann Perl grep | sedin einem einzigen Einzeiler ersetzt werden.

Beispielsweise:

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

Gibt jeden ganzzahligen Wert aus, der nach "Nachrichten lesen:" gefunden wurde, und nichts weiter.