投稿した文字がカタカナかどうかを調べる方法

締切済

質問者：katsudon
質問日時：2001/06/23 10:11
回答数：2件

投稿フォームにフリガナ欄を付けたのですが、
フリガナがカタカナかどうかを調べる箇所でつまづいています。

「ポケットリファレンス」を見よう見まねで下のように作ってみたのですが、
配列furiganaの各要素に一文字ずつ入ってくれません。
（文字列を数字に変換したものがひとつの要素に代入されてしまう）

ループを使えば解決してしまうのですが、
「ポケットリファレンス」によると各文字ごとに各要素に入ってくれるようなので
納得がいきません。

いまいちunpackの使い方が分からないので、アドバイスありましたらよろしくお願いいたします。

#フリガナ欄の文字列を16進数に変換して配列に入れる。
@furigana = unpack("H*", $QUERY{furigana});

foreach (@furigana){

#シフトJISの0x8346より前もしくは0x8396より後なら
if(($_ < 8340) || (8396 < $_)){

#フラグを上げる。
$flag = 1;
}
}

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： okwebenomoto
回答日時：2001/06/25 13:38

以下を参考にしてはどうでしょうか。

#------------------------------------------------------------------------------#
#概要ひらがな入力チェック処理
#入力$my_cf_val入力値
#$my_val_lenレングスチェック値　-1：未チェック
#戻り値0:正常
#-1:入力桁数異常
#-2:ひらがな以外あり
#------------------------------------------------------------------------------#
sub hiragana_chk
{
my ($my_cf_val,$my_val_len) = @_;
my @my_cf_kana = ('ぁ','あ','ぃ','い','ぅ','う','ぇ','え','ぉ','お',
'か','が','き','ぎ','く','ぐ','け','げ','こ','ご',
'さ','ざ','し','じ','す','ず','せ','ぜ','そ','ぞ',
'た','だ','ち','ぢ','っ','つ','づ','て','で','と','ど',
'な','に','ぬ','ね','の',
'は','ば','ぱ','ひ','び','ぴ','ふ','ぶ','ぷ',
'へ','べ','ぺ','ほ','ぼ','ぽ',
'ま','み','む','め','も',
'ゃ','や','ゅ','ゆ','ょ','よ',
'ら','り','る','れ','ろ',
'ゎ','わ','ゐ','ゑ','を','ん',
'は','か','け','ー');
my $my_cf_work;
my $my_cf_len;
my $my_cf_i;
my $my_cf_j;
my $my_cf_chk_flg = 0;
my $my_cf_hiranum = 87;

$my_cf_len = length($my_cf_val);
if($my_cf_len == 0)
{
return(-1);
}
if($my_val_len != -1)
{
if($my_cf_len != $my_val_len)
{
return(-1);
}
}
if(($my_cf_len % 2) != 0)
{
return(-1);
}

for($my_cf_i = 0 ; $my_cf_i < $my_cf_len ; $my_cf_i += 2)
{
$my_cf_chk_flg = 0;
$my_cf_work = '';
$my_cf_work = substr($my_cf_val,$my_cf_i,2);
for($my_cf_j = 0 ; $my_cf_j < $my_cf_hiranum ; $my_cf_j++)
{
if($my_cf_work eq $my_cf_kana[$my_cf_j])
{
$my_cf_chk_flg = 1;
}
}
if($my_cf_chk_flg == 0)
{
return(-2);
}
}
return(0);
}