perl の grepで 全角カタカナで検索できません

perl の以下のソースで、実行エラーになってしまいます。
grep で全角カタカナで検索できないのです。半角カタカナでは、うまく動きました。
全角文字（たとえば’中華’）でも正しく「中華料理」と出力されます。
’ラーメン’で検索したら、’ラーメン店’と出力されるのが正しいと思うのですが、
なぜ動かないんでしょ？

↓ソース
#!/usr/bin/perl

@aaa = ("ラーメン店","カレーハウス","中華料理");

@aaa = grep /ラーメン/ , @aaa;

print "Content-type: text/html\n\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n";
print <<"HTML";

@aaa

HTML

exit;

No.2 回答者： sakusaker7 回答日時： 2008/10/30 13:00

charsetをShift_JISとしていることから十中八九ShiftJIS使ってるからということだと思いますが、

CGIでいきなり動かさないでコマンドラインで試してみるか、ログを見ればすぐに判断つくような問題ではないですか?


Unmatched [ in regex; marked by <-- HERE in m/ラー <-- HERE メン/ at okw.pl line
5.

あるいはエラーメッセージをブラウザ画面に出るようにしとくとか。

この回答へのお礼

古典的な対策としては「@aaa = grep /\Qラーメン\E/ , @aaa;」と\Q\Eで囲む(quotemetaを利用する）

であっさり解決でした。ありがとうございます。

お礼日時：2008/10/31 17:56

No.1 回答者： Tacosan 回答日時： 2008/10/30 11:56

文字コードの問題?

この回答へのお礼

古典的な対策としては「@aaa = grep /\Qラーメン\E/ , @aaa;」と\Q\Eで囲む(quotemetaを利用する）

であっさり解決でした。ありがとうございます。

お礼日時：2008/10/31 17:56