perl について

変数に半角文字が何文字入っているか調べるにはどうすれば良いでしょうか？

’あ1い2うえ3お’

上であれば半角文字が3文字入っていることを調べる。

No.2 回答者： Tacosan 回答日時： 2012/03/11 23:43

「半角カタカナ」はどう処理するのがいいんだろう.

No.1 回答者： kmee 回答日時： 2012/03/11 20:12

なにを「半角文字」とするかにもよりますが。

UTF8フラグ付き文字列の $sから探すなら
@l = ( $s =~ /\p{InBasicLatin}/g ) ; # $sからLatin文字と記号を抽出、gフラグで全部マッチングして@lに
$count = scalar @l ; # @lの個数を数える


UTF8フラグ付き文字列にするには、スクリプト内部の文字列なら use utf8;してスプリプト自体をutf-8で記述。
ファイル等から読み込んだものの場合は、Encode::decodeやPerlIOの :encoding(XXX) 等を利用