[[Perl]]
* ワンライナー
**sedエミュレーション
perl -pe 's/hoge/HOGE/g'
**ファイル置換/バックアップ
perl -i.bak -p -e 's/<body>/<body bgcolor="#C0C0C0">/ig;' *.html
該当するファイルの置換とバックアップ。
use File::Findより楽っぽい。
**fullpath
perl -MCwd -MFile::Basename -pe 'chomp; $_ = Cwd::abs_path(dirname($_))."/".basename($_)."\n"'
**変なの
某所にてcrontabで回そうとしてたけど消した。
0 0 15 * * du -m --max-depth=1 /home | head -n -1 | perl -ane '($size,$path)=@F; $user=$path; $user=~s|/home/||; echo $path ${size}MB | mail $user -c root -s "du /home" if $size > 500;'
