====== Tips & Tricks zu perl ======


===== Datum von vor X Tagen bestimmen =====

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



===== 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:

<code>
perl -pi -e 's|suchmuster|ersetzung|g' dateiliste
</code>

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