Advertisement
Guest User

Untitled

a guest
Sep 4th, 2017
178
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.68 KB | None | 0 0
  1. use WWW;
  2. use DOM::Tiny;
  3. use Text::CSV;
  4. use URI::Encode;
  5. use HTTP::UserAgent;
  6. use Debugger::UI::CommandLine;
  7.  
  8. constant OUT_FILE = 'results3.txt'.IO;
  9.  
  10. my $term = uri_encode "Cancer";
  11.  
  12. say "Searching for: $term";
  13. my $year = 2001;
  14. #for 1990..1992 -> $year {
  15. print "\t...year $year ";
  16. "temp".IO.spurt: get "https://patents.google.com/?q=Cancer&country=US&before=20011231&after=20010101";
  17. #"temp".IO.spurt: get "https://patents.google.com/?q=Cancer&country=US&before={$year}1231&after={$year}0101", User-Agent => 'Test/5.0';
  18. dd get;
  19. my $results-num = csv(:in<temp>).elems - 2;
  20. say $results-num;
  21. OUT_FILE.spurt: :append, "$term,$year,$results-num\n";
  22. #}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement