Use local .txt input files if available

Raku · Apr 28, 2015 · b62f395 · b62f395
1 parent 8a490d0
commit b62f395
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/categories/rosalind/dbpr-grondilu.pl b/categories/rosalind/dbpr-grondilu.pl
@@ -23,7 +23,12 @@
 use LWP::Simple;
 
 sub MAIN(Str $id = "Q5SLP9") {
-    for split "\n", LWP::Simple.get(qq{http://www.uniprot.org/uniprot/$id.txt}) {
+    my $base-path = $*PROGRAM_NAME.IO.dirname;
+    my $id-fname = $base-path ~ "/$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
         }