regex - perl 正则表达式 : replace placeholder with variable content in template

Question

我有一些模板字符串和一些变量。例如像下面这样的东西:

my $template = " text <--Name--> some other text <--Age--> ...";
my $age = 15;
my $name = "heinz";

用相应的 perl 变量替换模板占位符字符串的正确正则表达式是什么？

我试过

$template =~ s/<--(.*?)-->/eval('$' . lc($1))/sge;

但它不起作用。占位符被替换为空字符串。我希望有人有想法。提前致谢。

Answer 1

使用哈希，

my $template = " text <--Name--> some other text <--Age--> ...";
my %hash = (age => 15, name => "heinz");

$template =~ s/<--(.*?)-->/$hash{"\L$1"}/g;