パターンマッチで変数でマッチさせるには？

質問

教えて下さい。
パターンマッチで変数$aaa（中身は２バイト文字）でマッチしたいのですが
どう書いたらいいんでしょう？

以下のように書いたらマッチしませんでした（；ω；）

if($value[5] =~ /^($aaa)/)

回答No.1

BLUEPIXY · ベストアンサー

以下のように書いたら、マッチ！しました
use encoding "Shift_JIS";

@value=("日本", "美国", "中国", "台湾", "ソ連", "韓国");

$aaa="韓国";

if($value[5] =~ /^($aaa)/){
print "マッチ！";
} else {
print "アンマッチ！";
}

お礼

ありがとうございました。

実はこの前処理のif文が間違ってたのが原因だったみたいです（＾ω＾；）