Perl/ワンライナーTop / Perl / ワンライナー関連するコマンドラインオプション
sedエミュレーションperl -pe 's/hoge/HOGE/g' ファイル置換/バックアップperl -i.bak -p -e 's/<body>/<body bgcolor="#C0C0C0">/ig;' *.html 該当するファイルの置換とバックアップ。 use File::Findより楽っぽい。 fullpathperl -MCwd -MFile::Basename -pe 'chomp; $_ = Cwd::abs_path(dirname($_))."/".basename($_)."\n"' PukiWikiファイル名表示perl -pe 's/([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/ego' 変なの某所にて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;' fml mget 用の連結mbox っぽいのを想定。 perl -pe 'if (!$out and m/^From /) {$out=1;} elsif ($out and m/^\s*$/) {$out=0;$_="";} s/^\s+$//; if ($out) {$_=""}' |