正規表現での$1や$2の使用方法

質問

正規表現の置き換え文字列部分で使用できる$1や$2の使用方法を教えてください！

以下のソース１のようにs///gの置き換え文字列部分に$1や$2を直接記述すれば、１つ目と２つ目のマッチ部分で置換が行われるのは確認しました。
しかし、ソース２のように置き換え文字列部分を変数に代入したのち、使用すると、正しく置換が行われません。
$1や$2を含んだ置き換え文字列を変数に持っている状態で、ソース１と同じ結果を得るにはどうしたらよいか、ご存知でしたら教えて下さい。

##############################
# ソース１
##############################
#!/usr/bin/perl

$data = '1234567';
$ptn = '(\d{3})(\d{4})';
$data =~ s/$ptn/$1-$2/g;
##############################
↓
$dataは123-4567となる。

##############################
# ソース２
##############################
#!/usr/bin/perl

$data = '1234567';
$ptn = '(\d{3})(\d{4})';
$str = "$1-$2";
$data =~ s/$ptn/$str/g;
##############################
↓
$dataは-となる。

回答No.1

moon_piyo · ベストアンサー

こんにちは～
たとえばこんな感じでは

$data = '1234567';
$ptn = '(\d{3})(\d{4})';
$str = '$1-$2';
eval "\$data =~ s/$ptn/$str/g";

お礼

期待していた結果が得られましたー。
evalを使用するのですね。勉強になります。
本当にありがとうございました。

回答No.2

kumoz

No1 よりも劣るかも知れませんが、別の方法で.....。

$str = '$1-$2';
$data =~ s/$ptn/"\"$str\""/eeg;