This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
kurs:6._einheit [2009/06/17 14:51] mh |
kurs:6._einheit [2011/04/21 15:31] mh |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | ==== Oneliner ==== | ||
+ | |||
+ | === "Füllstand" von Filesystemen extrahieren === | ||
+ | |||
+ | <code> | ||
+ | df -k | perl -ne '/(\d{1,3})%/; print "$1\n"' | ||
+ | </code> | ||
+ | |||
+ | === Vorkommen z�hlen === | ||
+ | |||
+ | <code> | ||
+ | perl -0pe'$_=()=/\.at/g' filename | ||
+ | </code> | ||
+ | |||
+ | === Ersetzen in Files === | ||
+ | |||
+ | <code> | ||
+ | perl -pi.bak -e 's/-lapreq//' Request/Makefile.PL Cookie/Makefile.PL | ||
+ | for i in `find . -name "*.p?"`; do perl -i -pe 's/::Blu::/::Bla::/g' $i ; done | ||
+ | </code> | ||
+ | |||
+ | |||
+ | === Alle Tasks "notepad" killen === | ||
+ | |||
+ | <code> | ||
+ | tasklist | perl -ne "if (/notepad/i) {@a=split(' ', $_); system('taskkill /PID '.$a[1])}" | ||
+ | </code> | ||
+ | |||
+ | ==== Packages ==== | ||
+ | |||
+ | * Getopts | ||
+ | * Storable | ||
+ | * Date::Calc, Date::Manip | ||
+ | * ... | ||
+ | |||
+ | ==== Debugger ==== | ||
+ | |||
+ | * perl -d script.pl | ||
+ | |||
+ | ==== neue Module /Objekt orientiertes Perl ==== | ||
+ | |||
+ | Neues Projekt | ||
+ | Mit | ||
+ | |||
+ | h2xs -XAn Test | ||
+ | |||
+ | anlegen | ||
+ | |||