Perl
Perlで置換を用いる時はメタ文字に注意しなければならない。 例えば $word = 'Are you free tomorrow?'; $erase = '?'; $word =~ s/$erase//; #ハテナを消そうとする ただし、これだと'?'がメタ文字と認識され消えない。 $word =~ s/\Q$erase\E//; これで解…
Perlでよく使うのでメモ。エンコードの部分は"utf8","euc-jp"など自由に変更可。 (ただし真ん中のeucは変更しない) use Jcode; .... my $word = 'あかさたな'; $word = new Jcode($word,"utf8")->tr(map {new Jcode($_)->euc}('ぁ-ん','ァ-ン'))->utf8;