正则表达式 – 如何组合这些正则表达式？

四个非常相同的正则表达式.我用以下标量值替换字符串.这怎么会更有效率？

$line =~ s/\[(receiver)\]/$receiver/g;
$line =~ s/\[(place)\]/$place/g;
$line =~ s/\[(position)\]/$position/g;
$line =~ s/\[(company)\]/$company/g;

谢谢.

考虑只使用一个真正的模板系统.例如 Template Toolkit很容易.

离开这边,你说你想要它更有效率.它目前的感知效率低下是一个问题吗？如果没有,请留下.

你可以一次完成这一切：

my %subst = (
    'receiver' => $receiver,'place'    => $place,'position' => $position,'company'  => $company,);
$line =~ s/\[(receiver|place|position|company)\]/$subst{$1}/g;

但是,如果$receiver是“place”,这将会有所不同.