日本語を入れた変数の中に指定の文字列が入っているか比較したいのですが、

日本語を入れた変数の中に指定の文字列が入っているか比較したいのですが、うまくいきません。

=========================================
&find("リスト", 0);

sub find {
$form = "リストフォーム";
my($text, $num) = @_;
if ($form =~ /${text}/) {
print num;
}
}
==============================================

分かる方がいましたら、教えてください。

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2010/06/24 00:04

「うまくいかない」とは, どう「うまくいかない」のですか?

文字コードの問題はあったりしますか?

この回答へのお礼

Tacosanさん、返事が遅れてもうしわけありません。

言われたように文字コードがおかしくて、文字化けしてマッチしてませんでした。
文字コードを直したら、うまくいきました。
ありがとうございます。

お礼日時：2010/06/28 17:16

No.2 回答者： JaneDue 回答日時： 2010/06/24 10:43

print 「$」num;