Re: Succint Perl version of Awk


Welcome to the Monastery
	PerlMonks

Re: Succint Perl version of Awk

by kcott (Archbishop)

on May 30, 2023 at 14:12 UTC ( [id://11152520]=note: print w/replies, xml )

Need Help??

in reply to Succint Perl version of Awk

G'day Galdor,

TMTOWTDI:

$ echo "one two three four five six seven eight nine
 A B C D E F G H
  A  B  C  D  E  F  G  H  I  J" | perl -pe 's/^(?:\s*\S+\s+){3}//'
four five six seven eight nine
D E F G H
D  E  F  G  H  I  J
[download]

Update: Added a '^' anchor to the regex.
Was: s/(?:\s*\S+\s+){3}//
Now: s/^(?:\s*\S+\s+){3}//
It doesn't change the result; but looks more correct.
With a huge history file, it might be a little quicker.

— Ken