文字列に含まれるひらがな

質問

$str にひらがなが含まれるかどうか調べるにはどうしたらできますか。

また、$str にひらがなが幾つ含まれるか調べるにはどうしたら良いでしょうか。

回答No.3

guci-ok

私は、ShiftJISに関しては、ShiftJIS::*を使っています。ppmでインストールできます。

#!Perl
use ShiftJIS::String qw(strtr);
my $str=<<'EOS';
$str にひらがなが含まれるかどうか調べるにはどうしたらできますか。

また、$str にひらがなが幾つ含まれるか調べるにはどうしたら良いでしょうか。
EOS
my $c = strtr(\$str, 'ぁ-ん', '');
print "\$c = $c\n";

__END__

D:>HIRA.pl
$c = 55
D:>

回答No.2

BLUEPIXY

＞$str にひらがなが幾つ含まれるか調べるには

#詳しくなくて、かつ適当ですが・
use encoding "Shift_JIS";

$str=<<'EOS';
$str にひらがなが含まれるかどうか調べるにはどうしたらできますか。

また、$str にひらがなが幾つ含まれるか調べるにはどうしたら良いでしょうか。
EOS

$count = ($str =~ tr/\x{3041}-\x{3094}/\x{3041}-\x{3094}/);
print $count;
みたいな感じで調べられると思う。

回答No.1

umasikajiro

一旦$strをEUCに変換したとすると 、
http://ash.jp/code/codetbl2.htm
ひらがなは　"ぁ"(829F)～"ん"(82F1)の範囲内なので
http://www.din.or.jp/~ohzaki/perl.htm#JP_Exist
を参考にすれば、ひらがなが含まれているかは判定できるかと思います。

あとは、、、、もっと詳しい人プリーズ