旧かなから新かな候補一覧を列挙する 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); my @temp2=map{my $s=substr($str, $old_pos, $pos-$old_pos-length($1)); $_.$s.$1, $_.$s.(&$func($1));} @temp; @temp=@temp2; } push @result, map{$_.substr($str, $pos)} @temp; } @resul

[Itisango]

こんなの一行で書けないよ。