Help for this page

Select Code to Download


  1. or download this
    my $col = "";  
foreach my $key (keys %sampleValue){
...
}
chop($col);
print $col,"\n"; ## string of all the columns I am interested in
  2. or download this
    my @cols = sort values %sampleValue;
  3. or download this
    ## Reading the sample Value file
while (<$IN>)
...
    my @line = split "\t";
    @line = @line[@cols];   # <-- Use array slice here
    ...