如何从Perl匹配运算符中提取匹配变量？

如果我有一个匹配运算符,我如何保存括号中捕获的字符串部分变量,而不是使用$1,$2等等？

... = m/stuff (.*) stuff/;

左边有什么？

解决方法

诀窍是通过使用列表分配来使m //在列表上下文中工作：

($interesting) = $string =~ m/(interesting)/g;

这可以整齐地扩展到更多的东西,例如：

($interesting,$alsogood) = $string =~ m/(interesting) boring (alsogood)/g;