/[webpac2]/trunk/bin/isi-download-results.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/isi-download-results.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1292 by dpavlin, Sat Sep 19 20:35:43 2009 UTC revision 1294 by dpavlin, Sat Sep 19 22:54:45 2009 UTC
# Line 8  use strict; Line 8  use strict;
8    
9  our $q = 'AD=Croatia';  our $q = 'AD=Croatia';
10  my $range_size = 500;  my $range_size = 500;
11  my $overlap    = 10; # between previous and this range  my $overlap    = 3; # between previous and this range
   
 $q = 'TS=psychology AND AD=Croatia' if @ARGV; # FIXME debug  
12    
13  my $max_cites = 5000; # ISI limit to get cites  my $max_cites = 5000; # ISI limit to get cites
14  our @ranges;  
15    if ( 0 ) {
16            $q = 'TS=psychology AND AD=Croatia';
17            $range_size = 50;
18            $overlap    = 0;
19            $max_cites  = 50;
20    }
21    
22  use WWW::Mechanize;  use WWW::Mechanize;
23  use Data::Dump qw(dump);  use Data::Dump qw(dump);
# Line 25  our $mech = WWW::Mechanize->new( Line 29  our $mech = WWW::Mechanize->new(
29  );  );
30    
31  our $step = 0;  our $step = 0;
32    our @ranges;
33    
34  my $dir = '/tmp/isi/';  my $dir = '/tmp/isi/';
35  rmtree $dir if -e $dir;  rmtree $dir if -e $dir;
# Line 206  do { Line 211  do {
211          if ( @ranges ) {          if ( @ranges ) {
212                  $part .= $ranges[0]->[0] . '.';                  $part .= $ranges[0]->[0] . '.';
213                  search;                  search;
214                    citations;
215          }          }
216          $part .= 'citing';          $part .= 'citing';
217          get_results $part;          get_results $part;
Legend:
Removed from v.1292  
changed lines
  Added in v.1294
  ViewVC Help
Powered by ViewVC 1.1.26