一行野郎

配列のシャッフル

$ perl -e 'use List::Util qw(shuffle);$,=",";print shuffle( 0..10 ),"?n";' 5,2,7,6,8,4,3,9,1,10,0, -Mでサブルーチンのエクスポート方法がわからん。

HTMLエンティティのエンコーディング

perl -Mencoding=utf8 -MHTML::Entities -ple '$_=encode_entities($_, "<>&")' ファイル

置換まとめ

perl -p -i.bak -e 's/foo/bar/g' *.hoge非道版 perl -p -e 's/foo/bar/g' *.hoge with grep カレントディレクリ以下の'hoge'という文字列を含むファイルを検索し そのファイル内の'foo'を、すべて'bar'に変換する。 grep -lr 'hoge' . | xargs perl -p -i.b…