Help for this page

Select Code to Download

Select or download this

while( defined( my $line=<FILE> )) {
    my $sequence= "ecNumber*$line#source*Swiss-Prot#textmining*0";
...
    -> getSequence($sequence)
    -> result;   
};