为什么正则表达式不适用于Perl中的全局标识？

Question

这是非常奇怪的，我不知道什么是问题！我有一个非常大的字符串（长度= 648745），我不知道它的长度是否可以使这个问题，但我试图找到它里面的一些参数，并推送他们到一个数组，像这样的：

push(@items_ids, [$2, $3]) while ($all_items_list =~ /itemID&(id|num)=([\d]*)\">\#([\d]*)/g); 

它不工作，它在最后返回一个空数组。我想可能是我的正则表达式是不正确的，但是当我运行此代码：

while ($all_items_list =~ /itemID&(id|num)=([\d]*)\">\#([\d]*)/){ 
    print "\nItemID=$2 Identity=$3\n";die; 
} 

它找到的第一次出现，当我把“G”在ReEx结束它无法再找到它。 ..

我知道我失去了一些东西，请大家帮我，这不是我的剧本的困难的部分，我被卡住，:(...

在此先感谢您的帮助。

Answer 1

在标量环境下，m/.../g开始寻找先前成功的地方m/.../g停止。我建议循环之前正确重置搜索位置：

pos($all_items_list) = undef; 
push(@items_ids, [$2, $3]) while ($all_items_list =~ /itemID&(id|num)=([\d]*)\">\#([\d]*)/g); 

，看是否有帮助。 （请参阅http://perldoc.perl.org/functions/pos.html。）