Perl

Skip der ersten Zeile wenn leer

Mittwoch, den 21. Dezember 2011

Heute hatte ich das Problem, eine leere Ausgabe des Programms “zip” zu unterdrücken, damit Cron mir keine Mail schickt, wenn es nichts zu zippen gibt. Findet zip nichts, was es einpacken kann, bekommt man die folgende Meldung: /usr/bin/zip -r /tmp/test.zip . -t `date -d “-1 days” +%Y-%m-%d` -i “*/bearbeitet/*” zip error: Nothing to do! (/tmp/test.zip) [...]

Perl: Einen Hash aus einer Datei befüllen

Freitag, den 23. Juli 2010

Manchmal muss man eine Liste aus einer Datei einlesen, weil man nach Elementen aus dieser Liste suchen möchte. Hier bietet es sich an, die Daten in einen Hash einzulesen. Und das geht erfreulich einfach mit: open LIST, ‘<’, $nodefile or die “Cannot open ‘$nodefile’ $!”; my %nodelist = map /^([^;]+)\s*;\s*(.+)\s*$/, <LIST>; close LIST; Man öffnet [...]

print_r für Perl

Freitag, den 15. Januar 2010

Die PHP-Debugging-Funktion print_r heißt bei Perl Data::Dumper.

Nur einen bestimmten Zeitabschnitt einer Logdateien ausgeben

Freitag, den 28. August 2009

Mit Hilfe des Bereichsoperator von Perl lässt auf der Kommandozeile aus einer Logdatei ein bestimmter Zeitabschnitt extrahieren.