全角数字を半角数字に変換::Perl

全角数字を半角数字に変換::Perl

全角数字を半角数字に変換。
取り掛かる前は標準の関数が用意されていると思っていました。
やってみたら、意外とてこずったので覚書。
解決方法::jcode.plを使う。

jcode.pl をインストール。

require ‘c:/installpath/jcode.pl’;

jcode::tr(\$zenkaku, ‘0123456789-’, ‘0123456789-‘);
この一行で、$zenkaku の数字が半角になる。

my $rtn = jcode::tr(\$zenkaku, ‘0123456789-’, ‘0123456789-‘);
とすると、 $rtnには、変換した文字数が代入される。

Unicode::Japaneseを使う方法やuse encoding を使う方法もある様子。
文字コードは奥が深い。

個人的には全角英数を半角英数に統合してくれると、このような悩みが
なくなるのでうれしい。(無理ですよね。)

この記事を書いた人

ものくろ(Webコーチ)

株式会社あみだす 代表取締役 / 博士課程中退(農学) / ブロガー / Web&Blogコーチ / 親指シフト orzレイアウト開発者 / 講師 / フリーランス / 旅人 / 民事裁判経験者 / 毎月どこかに出張

ブログは月間65万PVを記録(2016年1月)。 これまでに250回を超えるワークショップ開催・のべ1,200名のブログサポートに携わる。

WordPressが得意 / 好きなもの(無刻印キーボード・十割蕎麦・湯葉)/ あまり好みでないもの(ブロッコリー・値切り)

開催している講座に参加する