Help for this page

Select Code to Download


  1. or download this
    while ($sub =~ /([GCATN])/g) {
   if ($1 eq 'G') { $bases{g}++; }
...
   if ($1 eq 'T') { $bases{t}++; }
   if ($1 eq 'N') { $bases{n}++; }
}
  2. or download this
    $bases{ lc($1) }++ while $sub =~ /[GCATN])/g;