Perl中如何限制for循环输出 仅打印匹配到的最后10个数值

你可以直接使用修改后的命令：

... | perl -0 -nE 'my @matches = /\d+/g; say for @matches[-10..$#matches]'

修改逻辑说明 #

• 移除了原命令中不必要的-w警告参数（如果需要保留警告可加回，不影响核心逻辑）
• 不再直接遍历打印所有匹配结果，而是先将所有匹配到的数字存入数组@matches
• 通过数组负索引切片@matches[-10..$#matches]取数组最后10个元素遍历打印：
  • 当匹配到的数字总数≥10时，输出最后10个
  • 当匹配到的数字总数<10时，自动输出所有匹配到的结果，不会抛出索引异常

原理解释 #

你原命令中使用的-0参数会让Perl按空字符作为输入分隔符，一次性读入所有管道传入的内容，因此所有数字匹配操作可以一次性完成，不需要逐行缓存结果，逻辑和原命令的执行模式完全兼容。

内容的提问来源于stack exchange，提问作者Alesi Rowland