> > テキスト読み込み→,0,1,1を,0,0,0に置換→終了
> > なでしこで作ろうとしたけどヽ(´ー｀)ノさっぱり
> perlですまないが
> open( my $hf, '<', $ARGV[0] );
> my $text = eval { local $/ = undef; <$hf> };
> $text =~ s{\Q$ARGV[1]\E}{$ARGV[2]}g;
> print $text;
> ｺﾏﾝﾄﾞﾗｲﾝからreplace.pl foobar.txt ,0,1,1 ,0,0,0 > replaced.txt
> で使えるよ(;´Д`)間違いあるかもしれないけど

おーー(;´Д`)できたーーｸｼｺ
でもこれだとまだﾉｰﾄﾊﾟｯﾄﾞで置換したほうが早いなあ

参考：2008/03/28(金)05時56分41秒