2012-03-23から1日間の記事一覧

旧かなから新かな候補一覧を列挙する Perl ワンライナー

ちょっと必要になったので書きました。 perl -CSD -Mutf8 -F/\\t/ -nle 'sub apply_rule{ my ($before, $func, @arr)=@_; my @result=(); for my $str(@arr) { my @temp=(""); my $pos=0; while ($str=~/($before)/g) { my $old_pos=$pos; $pos=pos($str); m…