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' *
 
wissen/tips_und_tricks/perl.txt · Zuletzt geändert: 05.09.2010 20:31
 
Recent changes RSS feed Donate Valid XHTML 1.0 Valid CSS Recent cached RSS feed cacert-signed web site: inhalt.serviert.de