Lingua::JA::Regular::Unicode のメモ
全角/半角変換のできる便利なモジュール Lingua::JA::Regular::Unicode
- 作者様blog: http://d.hatena.ne.jp/tokuhirom/20081018/1224300947
- CPAN(ver0.03): Lingua::JA::Regular::Unicode - convert japanese chars. - metacpan.org
の使い方(?)メモ
- フラグ付き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