Help for this page

Select Code to Download

Select or download this

my %genotype;
while(<GENOTYPE>) {
...
    next unless (/(\d+)\t(\w)/); 
    print OUT (defined($genotype{$1}) and ($genotype ne '')) ? "$1\t$g
+enotype{$1}\n" : "$1\t$2\n";
}