perl regex，用另一个单词替换每个单词

Question

我有一个类似

的公式

(var1  - var2 ) + var3

我想用{/ 1>替换var1 - var 3

(put(var1,format.) - put(var2, format.) + put(var3, format.)

使用perl reg最简单的方法是什么？

感谢。

Answer 1

$string = '(var1 - var2 ) + var3';
$string  =~ s/\b(var\d+)\b/put($1, format.)/g;
print $string;

Answer 2

my $string = '(var1 - var2 ) + var3';
$string  =~ s/(var\d+)/put($1, format.)/g;
print $string;