Select Code to Download

Select or download this

    while (<$fh>) {
        print if /^(.+?)\|(.+?)\| (.+?)\s+(\d+)\s+(\d+e[+-]\d+)$/;
    }

Select or download this

    $hash{$2} = { col1 => $1, desc => $3, score => $4, E => $5 }
        if /.../; # Use regex above

Select or download this

    my $how_many = 10;
    for (sort { $hash{$b}->{score} <=> $hash{$a}->{score} } keys %hash
+) {
        printf "%-4s %-55s %5s\n",
...

        last if --$how_many == 0;
    }

Select or download this

emb  plasma membrane H+-ATPase [Oryza sativa Japonica...       213
gb   hypothetical protein OsI_09609 [Oryza sativa Indi...      213
ref  Os03g0100800 [Oryza sativa Japonica Group] >...           213
...
ref  PREDICTED: ATPase 7, plasma membrane-type is...           207
ref  autoinhibited H+ ATPase [Populus trichocarpa...           206
ref  PREDICTED: plasma membrane ATPase 1-like iso...           205