全角文字から半角文字に変換 shift-jis [perl] 公開済み 2010年11月4日 · 更新済み 2010年11月4日 use Jcode; $no = Jcode->new($no)->tr('[0-9]', '[0-9]')->sjis;