一些时候,一个正则表达式的替换串不允许足够的复杂性。在这些情况下,perl支持/e改造者,它可以评价一个替代表达式作为perl代码用来代替双倍引证串。
比如,如果你希望计算整个列表的价钱和数量,你可以使用下面的正则表达式:
$line =~ s/(d+) (d+)/" " . */e;
右边的表达式同样也包括一个调用函数。这个例子改变了百分比符号,这个百分比符号由相应的十六进制改变成相应字符:
$url = s/%(d+)/chr hex /eg;
添加另外一个e作为一个改造者,这个改造者将导致perl早运行之前替换eval()一部分。当程序变量代入的时候这个方法十分有用。下面两行代码在功能上是一样的:
s/($w+)//eeg;
s/($w+)/eval();/eg;
使用/e改造者允许在替换形式下任何复合表达式。这个允许计算或者函数调用被执行的作为代入进程的一部分。