文字の置換がうまくいかない

質問

********** test.txt *************
$first = "abc";
$last = "xyz";
*********************************

********** change.txt ***********
$first
$firstaaa
$last
*********************************
という２つのテキストファイルがあったとして、

open(IN,"test.txt");
@data = IN;
close IN;

open(A,"change.txt");
while(<A>){$a_data .= $_}
close A;

foreach (@data) {
if(/(\$[a-zA-Z_]+)[\t\s]*=[\t\s]*"(.+)"[\t\s]*;/){
my $name = $1;
my $value = $2;
print "$name<br>"; #$nameに何が入っているか表示
$a_data =~ s/$name/$value/g;
}
}

としても、change.txtの$firstや$lastがabcや、xyzに置換されないのですが、なにがいけないのでしょうか？print "$name<br>";のところではちゃんと$firstと$lastという風に出力されています。$a_data =~ s/$name/$value/g;を$a_data =~ s/\$first/$value/g;
と変えると、ちゃんと$firstだけ置換されました。

なにか心当たりがある方、よろしくお願いします。

回答No.1

leaz024 · ベストアンサー

$name の値が '$first' のとき、正規表現では（firstの頭についている）$ が行末を示すメタ文字と認識されるため、置換されないのです。
正規表現に使用する文字列にメタ文字が含まれる場合は、メタタグの \Q～\E を使うか、予め quotemeta でエスケープします。

・\Q～\E の場合
　my $name = $1;
　my $value = $2;
　$a_data =~ s/\Q$name\E/$value/g;
　# \Q～\Eで挟まれた部分のメタ文字は無効化されます。
　# この場合 $name が変数展開された後、$first の $ が無効化されます。

・quotemeta の場合
　my $name = quotemeta($1);　# $name は '\$first' となります。
　my $value = $2;
　$a_data =~ s/$name/$value/g;

# 比較のため同じ部分を書きましたが、それぞれ変更箇所は１行ずつです。

お礼

ありがとうございます。
無事、出来ました