Perlコーディング初心者質問スレ Part 48

[0521 nobodyさん NG NG]

Shift_JISの全角だけだったらこんな感じじゃねーの

if($comment =~ /[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]/s){ print "Japanese"; }
else{ print "Not Japanese"; }