文字列をぶった斬ったときの最後の文字の文字化け防止

# 引数:数値, 元文字列
# 戻値:斬られた文字列
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;
}