为什么我的Perl正则表达式使用了这么多内存?

# A
if (${$c} =~ m/\G<<\s*/cgs)
{
    #B
    ...
}

$c 是对一个相当大的标量(大约21M)的引用,但我已经验证了这一点 pos(${$c}) 位于正确的位置,并且表达式在第一个字符处匹配 pos(${$c}) 在比赛后更新到正确的位置。但正如我所提到的,在A和B之间,这一过程增加了大约3000万,尽管我在这场比赛中没有捕捉到任何东西。我的记忆到哪里去了?

编辑:是的,使用 $& 这是罪魁祸首。我们使用的是Perl 5.8.8,我的脚本使用的是 Getopt::Declare ,它使用内置的 Text::Balanced . 此模块的1.95版本正在使用 . Perl5.10附带的2.0.0版本删除了对 $&