$match="";
for($i=0;$i<=$#wor;$i++)
{
$match=$match.$letter[$wor[$i]];
}
print $match;
open ABC,"<words.txt";
while(<ABC>)
{
if($_ =~ /^$match$/ )
{
print "$_";
print "\n";
}
}
次のコードでは、ファイルの行、つまり$_を変数$match(一致する実際のメタ文字を含む)と一致させることができませんか?したがって、出力は生成されません。どのような変更が必要ですか?