Help for this page

Select Code to Download


  1. or download this
    print OUT join "\n", map {${$_}[1]}grep { ${$_}[0] eq "EMBL" } $entry-
+>DRs->elements;
  2. or download this
    print OUT join "\n", map {${$_}[1],${$_}[2]}grep { ${$_}[0] eq "EMBL" 
+} $entry->DRs->elements;
  3. or download this
    print OUT join "\n",grep { ${$_}[0] eq "EMBL" } $entry->DRs->elements;