帮助perl中的正则表达式

Question

有人可以帮我找到这个字符串的正确正则表达式吗？

Total                       14,928  3,967

我试图使用此删除该行，但没有运气：

shift @lines if $lines[0] =~ /^Total/;

它也是输出文件的最后一行。

Answer 1

您可能会考虑的是：

@lines = grep !/^Total/, @lines;

如果它总是最后一行：

splice @lines, -1, 1 if $lines[-1] =~ /^Total/;

-1是数组中的最后一个元素。

或者更简单地说，正如池上所指出的那样：

pop @lines if $lines[-1] =~ /^Total/;