Inhaltsverzeichnis

Tips & Tricks zu perl

Datum von vor X Tagen bestimmen

BEFORE=5
DATEBEFORE=$(perl -e 'use Time::Format qw(%time %strftime); \
  $time{$format,$unixtime}; \
  print $time{"yyyy-mm-dd", time-'$BEFORE'*24*60*60};')

Zeichenketten ersetzen

Will man in mehreren Dateien Zeichenketten ersetzen und stößt man ggf. an die Grenzen von sed, so kann man folgenden Code verwenden:

perl -pi -e 's|suchmuster|ersetzung|g' dateiliste

z.B.

perl -pi -e 's|^(LIBTOOL)=.*|\1 = /etc/httpd/build/libtool|g' *