Help for this page

Select Code to Download


  1. or download this
    for my $key ( keys %hash ) {
        if ( $key =~ /^dataS\d\dR\d$/ ) {
            print $key, @{ $hash{$key} }, "\n";
        }
  2. or download this
    my $first = 1;
for(my $i = 0; $i < $originalfilecount; $i++)
...
close $OUT3;
  3. or download this
    8899_Neg_Rep01_dataS01R01
8889_Neg_Rep02_dataS01R02
...
7709_Neg_Rep03_dataS05R03

(and so on...)