Tweet
I hope
Usage: perl test.pl file1.txt file2.txt > output.txt
Use file1 and file2 to compare
1.chr is same (in 2 files) ?
2.pos if file1 has it ,but file2 has not. print 0
if file2 var has 1 char.print 2
if file2 var has 2 char.print 1
if file2 vat has no char.print 0
finally, print chr +"\t" + pos +"\t"+ nmumber(0,1,2)
Usage: perl test.pl file1.txt file2.txt > output.txt
Use file1 and file2 to compare
1.chr is same (in 2 files) ?
2.pos if file1 has it ,but file2 has not. print 0
if file2 var has 1 char.print 2
if file2 var has 2 char.print 1
if file2 vat has no char.print 0
finally, print chr +"\t" + pos +"\t"+ nmumber(0,1,2)