09/03/02 23:48:16
>>136
/sgee; のeは一個でeval()一個と同等。
$destの中身をevalを使って評価してる。
my $dest = q{"$1$2varp = 5;\n"};
$input =~ s/$src_regex/eval $dest/sge;
09/03/02 23:48:16
>>136
/sgee; のeは一個でeval()一個と同等。
$destの中身をevalを使って評価してる。
my $dest = q{"$1$2varp = 5;\n"};
$input =~ s/$src_regex/eval $dest/sge;