perl -ane "print join(qq(\t),@F[0,1,20,21,2,10,12,14,11,4,5,6]).qq(\n)"
file.txt

-a autosplit mode with -n or -p (splits $_ into @F)
-n assume "while (<>) { ... }" loop around program

-- 
http://mail.python.org/mailman/listinfo/python-list

Reply via email to