文字列をぶった斬ったときの最後の文字の文字化け防止
# 引数:数値, 元文字列 # 戻値:斬られた文字列 sub zanStr { my ($lng, $str) = @_; return $str if(length($str) <= $lng); jcode'convert(*str, 'euc'); $str = substr($str, 0, $lng); if ($str =~ /\x8F$/ or $str =~ tr/\x8E\xA1-\xFE// % 2){ chop $str; } jcode'convert(*str, 'sjis'); $str .= "\.\.\."; return $str; }