Perl-Programmierung: Einzeiler

Bearbeiten von Textdateien

Bearbeiten
# all diese Beispiele schreiben ein Backup der Originaldatei nach DATEINAME~ 
# Perl-Implementierung von dos2unix (ersetzt Windows- durch Unix-Zeilenumbrüche)
perl -pi~ -e "s/\r//g" DATEINAME

# Perl-Implementierung von osx2unix (ersetzt OSX- durch Unix-Zeilenumbrüche)
perl -pi~ -e "s/\r/\n/g" DATEINAME

# Perl-Implementierung von unix2dos (ersetzt Unix- durch Windows-Zeilenumbrüche)
perl -pi~ -e "s/\n/\r\n/g" DATEINAME

Zufallswerte generieren

Bearbeiten
# Generiere eine 8 Zeichen lange zufällige Zeichenkette bestehend aus Groß- und Kleinbuchstaben
# sowie Ziffern von 0-9
perl -e 'print join("", (A .. Z, a .. z, 0 .. 9)[map {rand 62} (1 .. 8)]), "\n";'

Alle IP-Adressen eines Hosts ermitteln (gethostbyname)

Bearbeiten
# Hier wird beispielsweise www.google.de befragt
perl -MSocket -e 'print join("\n", map{inet_ntoa($_)}(splice(@{[gethostbyname("www.google.de")]}, 4, scalar(@{[gethostbyname("www.google.de")]}) - 4)))."\n"'