Help for this page

Select Code to Download


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

...
EMBL ABC;DEF;GHI;JKL;
  2. or download this
    print OUT join ";", map {${$_}[1]}grep { ${$_}[0] eq "EMBL" } $entry->
+DRs->elements(),map {${$_}[2]} grep { ${$_}[0] eq "EMBL" } $entry->DR
+s->elements(),"\n";