strict match AND/OR with word-boundries

[webpac2] / bin / isi-download-results.pl

diff --git a/bin/isi-download-results.pl b/bin/isi-download-results.pl
index e58893b..3a385e8 100755 (executable)
--- a/bin/isi-download-results.pl
+++ b/bin/isi-download-results.pl
@@ -9,6 +9,8 @@ use strict;
 our $q = 'AD=Croatia';
 my $range_size = 500;
 my $overlap    = 3; # between previous and this range
+my $skip_results = 1;
+my $cites_by_year = 1;
 
 my $max_cites = 5000; # ISI limit to get cites
 
@@ -169,10 +171,17 @@ sub years {
 
        my @y = sort keys %$years;
 
+       @ranges = ();
+
+       if ( $cites_by_year ) {
+               push @ranges, [ $_ ] foreach @y;
+               warn "# cites_by_year ranges ", dump @ranges;
+               return;
+       }
+
        my $y = shift @y;
        my $size = $years->{$y};
 
-       @ranges = ();
        my $cites_range;
        $cites_range = [$y] if $y;
 
@@ -201,7 +210,7 @@ sub years {
 
 search;
 years;
-get_results;
+get_results unless $skip_results;
 
 
 citations;