蛋白质数据库简介

作者：L. Grondin

http://rosalind.info/problems/dbpr/

示例输入

Q5SLP9

示例输出

DNA recombination
DNA repair
DNA replication

源代码：dbpr-grondilu.pl

use v6;

use LWP::Simple;

sub MAIN(Str $id = "Q5SLP9") {
    my $id-fname = $*SPEC.catdir($*PROGRAM-NAME.IO.dirname, "$id.txt");
    my $input = $id-fname.IO.e
        ?? $id-fname.IO.slurp
        !! LWP::Simple.get(qq{http://www.uniprot.org/uniprot/$id.txt});
    for split "\n", $input {
        if / GO\; .* \sP\: (.*?)\;/ {
            say $/[0].Str
        }
    }
}