Help for this page

Select Code to Download


  1. or download this
    $fields[2] = $file;
my $locus = join "\t", @fields[0,1,2,3,4,5];
  2. or download this
    my $samples_list = join "\t", @samples;
print OUT "CHROM    POS    ID    REF    ALT    QUAL    $samples_list
  3. or download this
    #!perl
use strict;
...
  print OUT join "\t",$id,@zygos,$info{$id};
  print OUT "\n";
}