よし。 use utf8; sub hira2kana { local $_ = shift; $_ = Encode::decode('sjis' ,$_); tr/\x{3041}-\x{3096}/\x{30A1}-\x{30F6}/; Encode::_utf8_off($_); $_ = Encode::encode('sjis',Encode::decode('utf8' ,$_)); return $_; } no utf8;

下記コードがタ行以降で化ける。 use strict; use warnings; use 5.12.0; use Encode; sub conv_kana(){ my $string = shift; $string = Encode::encode('utf8',Encode::decode('sjis',$string)); $string =~ tr/ぁ-ん/ァ-ン/; #$string = Encode::encode('s…