Textdatei bearbeiten mit Perl

Nachdem in einem anderen Beitrag (Mehrere Dateien bearbeiten mit Python) Python dran war, hier nun eine kleines Programmgerüst für Perl. Ich benutze es häufig, um den Inhalt einer Textdatei zu bearbeiten. Meistens gebe ich das Ergebnis nach der Verarbeitung per “print” aus, so kann ich gleich alles per Kommandozeile wieder in eine (andere) Datei leiten:

#!/usr/bin/perl

foreach (<>) {
chomp;

# jetzt steht die aktuelle Zeile in der Variablen $_

# hier wird die Variable bearbeitet

print $_; # hier das Ergebnis ausgeben
}

Der Dateiname der Textdatei kann dann ganz einfach über die Kommandozeile übergeben werden, den Inhalt kann ich zeilenweise in der $_-Variablen bearbeiten und wieder ausgegeben. Aufrufen kann man das Skript dann folgendermaßen, um alles in eine Ausgabedatei zu schreiben:

perl meinskript.pl textdatei.txt > ausgabedatei.txt