Help for this page

Select Code to Download


  1. or download this
      @array = $_;
  2. or download this
        elsif(/^TITLE/)    {$title = (s/                   /\n\t\t /g,$_);
+}
    elsif(/^ORGANISM/){$org = (s/                   /\n\t\t /g,$_);}
  3. or download this
        elsif(/^(TITLE)\s+(\S.*)/) { $title = "$1\n\t\t $2\n" }
    elsif(/^(ORGANISM)\s+(\S.*)/) { $org = "$1\n\t\t $2\n" }
  4. or download this
        elsif(/^ACCESSIONS\s+(\S.*)/) {
        my %seen = ();
        @accessions = grep { $seen{$_}++ == 0 } split /;\s+/, $1;
    }