Advertisement
Guest User

Untitled

a guest
Aug 28th, 2017
157
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. use DOM::Tiny;
  2. use WWW;
  3.  
  4. my @terms = "list.txt".IO.lines;
  5.  
  6. #DOM::Tiny.parse(post(q|https://www.ncbi.nlm.nih.gov/pubmed|, term => q|(Babesiosis AND (("1990/01/01"[PDat] : "1990/12/31"[PDat])))|)).at(q|meta[name="ncbi_resultcount"]|).attr("content").say
  7.  
  8. my &term = { q|(| ~ $:term ~ q| AND (("| ~ $:year ~ |/01/01"[PDat] : "| ~ $:year ~ q|/12/31"[PDat])))| };
  9. for 1990..1993 -> $year { for @terms -> $term { say term :$term, :$year; } }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement