Help for this page

Select Code to Download


  1. or download this
     perl -ane 'print  join ("\t",splice(@F, 1 ,1),@F ), "\n"' YourFileNam
    +e.txt
    
  2. or download this
    perl -sane 'print  join ("\t",splice(@F, $COL-1 ,1),@F ), "\n"' -- -CO
    +L=2  YourFileName.txt
    
  3. or download this
    perl -sape '$_=splice(@F, $COL-1,1)." @F\n"' -- -COL=3 YourFileName.tx
    +t