le final.snp.list | perl -lane ‘{$a+=1;print "$a\t$F[0]\t$F[1]\t$F[1]"}‘ | less >snp_site
le final.indel.vcf |grep -v ‘^#‘ | less -S|perl -lane ‘{$a+=1;$b=$F[1]+length($F[3]);print "$a\t$F[0]\t$F[1]\t$b"}‘ | less -S >indel_site
原文：http://www.cnblogs.com/renping/p/7356586.html