Lingua::JA::Regular::Unicode のメモ

全角/半角変換のできる便利なモジュール Lingua::JA::Regular::Unicode

の使い方(?)メモ

  • フラグ付きUTF8を渡さないと正しく動作しない
  • 戻り値はフラグ付きUTF8
use Lingua::JA::Regular::Unicode qw/alnum_z2h/;
my $str = 'iPod';
print utf8::is_utf8($str) ? "$str : flagged\n" : "$str : not\n";
$str = alnum_z2h($str);
print utf8::is_utf8($str) ? "$str : flagged\n" : "$str : not\n";

iPod : not
iPod : flagged
use Lingua::JA::Regular::Unicode qw/alnum_z2h/;
use Encode;
my $str = decode('utf8', 'iPod');
print utf8::is_utf8($str) ? (encode('utf8', $str). " : flagged\n") : (encode('utf8', $str). " : not\n");
$str = alnum_z2h($str);
print utf8::is_utf8($str) ? (encode('utf8', $str). " : flagged\n") : (encode('utf8', $str). " : not\n");

iPod : flagged
iPod : flagged