/[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 1299 by dpavlin, Sat Sep 19 23:37:55 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
12    my $skip_results = 1;
 $q = 'TS=psychology AND AD=Croatia' if @ARGV; # FIXME debug  
13    
14  my $max_cites = 5000; # ISI limit to get cites  my $max_cites = 5000; # ISI limit to get cites
15  our @ranges;  
16    if ( 0 ) {
17            $q = 'TS=psychology AND AD=Croatia';
18            $range_size = 50;
19            $overlap    = 0;
20            $max_cites  = 50;
21    }
22    
23  use WWW::Mechanize;  use WWW::Mechanize;
24  use Data::Dump qw(dump);  use Data::Dump qw(dump);
# Line 25  our $mech = WWW::Mechanize->new( Line 30  our $mech = WWW::Mechanize->new(
30  );  );
31    
32  our $step = 0;  our $step = 0;
33    our @ranges;
34    
35  my $dir = '/tmp/isi/';  my $dir = '/tmp/isi/';
36  rmtree $dir if -e $dir;  rmtree $dir if -e $dir;
# Line 196  sub years { Line 202  sub years {
202    
203  search;  search;
204  years;  years;
205  get_results;  get_results unless $skip_results;
206    
207    
208  citations;  citations;
# Line 206  do { Line 212  do {
212          if ( @ranges ) {          if ( @ranges ) {
213                  $part .= $ranges[0]->[0] . '.';                  $part .= $ranges[0]->[0] . '.';
214                  search;                  search;
215                    citations;
216          }          }
217          $part .= 'citing';          $part .= 'citing';
218          get_results $part;          get_results $part;
Legend:
Removed from v.1292  
changed lines
  Added in v.1299
  ViewVC Help
Powered by ViewVC 1.1.26