in reply to Re: Succint Perl version of Awk
in thread Succint Perl version of Awk
Taking advantage that the warnings are off:
perl -lane'@F[0..2] = (); print "@F"'
Golfed:
perl -pale'$_=" @F[3..$#F]"'
Note that these solutions, like those in the parent, don't "lose the first three columns". They just replace their values with blanks. Just like the awk program does. If you truly want to remove the leading columns (i.e. no leading spaces in the output), then you can use
perl -pale'$_="@F[3..$#F]"'
|
|---|