df -k | perl -ne '/(\d{1,3})%/; print "$1\n"'

perl -0pe'$_=()=/\.at/g' filename

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

tasklist | perl -ne "if (/notepad/i) {@a=split(' ', $_); system('taskkill /PID '.$a[1])}"

• Getopts
• Storable
• Date::Calc, Date::Manip
• …

• perl -d script.pl

Neues Projekt Mit

h2xs -XAn Test

anlegen