Re: perl one liner print columns 2.. last

[eyepopslikeamosquito]

Long ago on usenet, Tom Christiansen once wrote: "If you find yourself calling cat with just one argument, you're probably doing something silly". So you should lose the cat and replace:

cat /tmp/1.out|perl -lane 'print $F[1]..$F[-1]'

with (using the LanX slice idea):

perl -lane 'print join q{ }, @F[1..$#F]' /tmp/1.out

or:

perl -lape '$_=join q{ }, @F[1..$#F]' /tmp/1.out

or even (for variety, not recommended):

perl -lpe 's/\s*\S+\s*//' /tmp/1.out

Update: See also Re: perl one liner for csv file one field (useless use of cat and other awards References)