help with regex in perl

Question

Can someone help me get the correct regex for this string?

Total                       14,928  3,967

I am trying to remove that line using this, but no luck:

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

Its also the last line of the output file.

TLP · Accepted Answer · 2011-09-16 21:17:23Z

6

What you might consider instead is:

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

If it is always the last line:

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

-1 is the last element in the array.

Or, more simply, as ikegami pointed out:

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

answered Sep 16, 2011 at 19:40

TLP

68.2k10 gold badges97 silver badges156 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

perfect. thank you! i also was curious how to get the last element and you got that answered too. thanks again.

splice @lines, -1, 1 is long for splice @lines, -1 and for pop @lines

Timtowtdi: $#lines -- if $lines[-1] =~ /^Total/;