Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    
  2. or download this
    #    if ($curseq ne $nextseq) {
    #      while ($curseq ne $nextseq) {
    ...
        $curseq = $nextseq;
      }
      print "missing=<@missing>\n";