ファイル内の文字列を一斉置換 find . -type f -name '*.pm' -print0 | xargs -0 perl -i -pe 's/before/after/g' 文字コードの一斉置換。 それぞれEUC-JPとSJISからUTF-8 SJISは波ダッシュ問題回避のためにCP932で指定する。 find . -name '*.pm' | xargs n…

単なる配列だと普通にやればできるけど、レファレンスの場合はちょっと面倒かな… use Data::Dumper; my $arr1 = [1..3]; my $arr2 = [(@$arr1,@$arr1)]; print Dumper($arr2); # 1,2,3,1,2,3