asosatoshi「いいむずとはEamesのこと?」
H-san「うん。」
asosatoshi「どんなEames?」
H-san「ぷらっちっくの。白。」
asosatoshi「オレモ ソレガ イイ。重ねるやつ?」
H-san「重ねないやつ。」
asosatoshi「カサネナイシネ。」
perl メモ
#!/usr/bin/perl
print "Content-type: text/html \n\n";
$form_in = "い い むず";
$form_in =~ s/\s//g;
$form_in =~ s/\x81\x40//g;
$hiragana_regex = '^(?:\x82[\x9F-\xF1]|\x81[\x4A\x4B\x54\x55])+$';
if( $form_in =~ /$hiragana_regex/ ) {
print "全角ひらがなです。\n";
}else{
print "全角ひらがな以外が入ってます。\n";
}
print "Content-type: text/html \n\n";
$form_in = "い い むず";
$form_in =~ s/\s//g;
$form_in =~ s/\x81\x40//g;
$hiragana_regex = '^(?:\x82[\x9F-\xF1]|\x81[\x4A\x4B\x54\x55])+$';
if( $form_in =~ /$hiragana_regex/ ) {
print "全角ひらがなです。\n";
}else{
print "全角ひらがな以外が入ってます。\n";
}



コメントする