On Mon, Jul 22, 2002 at 08:55:24PM +0200, Steffen Mueller wrote:
> perl -ae 'print"@F[1..$#F-1]
> $F[$#F]"'

Here's one that's two strokes shorter (and probably can be made better):

perl -ae 'print"@F[1..@F-2]
$F[-1]"'

-- Mike

-- 
Michael W. Thelen
eval unpack 
u,'M*"1C/2<P,BDN-"`U+C`A(RLG*3U^>2\A+48O82UZ+SME=F%L*"1C+B(G=2HGM+"<Z,D<U4SU<(B%!.T9=5#HF-5(H)2%%/$907$`Z)B5#.E8U4BM@2&`G+EPD$+R(I.P``'

Reply via email to