Help for this page

Select Code to Download


  1. or download this
    print $activ{E7F888},"\n";
for ( read_file $uniprot ) {
  next unless /(E7F888)\s+.+=([^\s]+)/;
...
  
}
print @activline;
  2. or download this
    PF01388
E7F888 Name=arid5b ;PF01388

E7F888 | arid5b | PF01388
  3. or download this
    #!/usr/bin/perl
use Modern::Perl;
...
     if $activ{$1};
}
print "done";
  4. or download this
    $uniprot:

...
Q801F8 | PF00751.13 PF12374.3 PF12374.3
B7ZS42 | PF00751.13 PF12374.3 PF12374.3
Q157S1 | PF12886.2 PF12885.2 PF12884.2