全角文字から半角文字に変換 shift-jis [perl]

use Jcode;

$no = Jcode->new($no)->tr('[0-9]', '[0-9]')->sjis;

おすすめ

コメントを残す

メールアドレスが公開されることはありません。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください