如何在全局替换中增加变量？

Question

$html =~ s[<p>(.+?)</p>][<li value="++$count">$1</li>]gis;

如何在perl中实现上述代码？

我需要++$count为每个发生的替换增加一个数字.

Answer 1

使用perlsecret的婴儿 @{[ ]}推车

$html =~ s[<p>(.+?)</p>][<li value="@{[++$count]}">$1</li>]gis;

来自perldoc

它的工作方式是当在双引号字符串中看到@ {...}时,它被评估为一个块.该块创建对包含eval结果的匿名数组的引用.