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

質問

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

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

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

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

回答No.1

Tacosan · ベストアンサー

「うまくいかない」とは, どう「うまくいかない」のですか?
文字コードの問題はあったりしますか?

お礼

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

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

回答No.2

JaneDue

print 「$」num;