/[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 1331 by dpavlin, Sun Apr 18 10:56:01 2010 UTC revision 1332 by dpavlin, Sun Apr 18 11:04:49 2010 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6    use WWW::Mechanize;
7    use Data::Dump qw(dump);
8    use File::Path;
9    use Text::Unaccent;
10    
11  # Advanced search syntax:  # Advanced search syntax:
12  # http://images.isiknowledge.com/WOK46/help/WOS/h_advanced_examples.html  # http://images.isiknowledge.com/WOK46/help/WOS/h_advanced_examples.html
13    
14  our $q = 'AD=Croatia';  our $q = 'AD=Croatia';
15  my $range_size = 500;  my $range_size = 500;
16  my $overlap    = 3; # between previous and this range  my $overlap    = 3; # between previous and this range
17  my $skip_results = 1;  my $skip_results = 0;
18  my $cites_by_year = 1;  my $cites_by_year = 0;
19    
20  my $max_cites = 5000; # ISI limit to get cites  my $max_cites = 5000; # ISI limit to get cites
21    
# Line 21  if ( 0 ) { Line 26  if ( 0 ) {
26          $max_cites  = 50;          $max_cites  = 50;
27  }  }
28    
29  $q = join(' ', @ARGV) if @ARGV;  $q = unac_string( 'utf-8', join(' ', @ARGV) ) if @ARGV;
   
 use WWW::Mechanize;  
 use Data::Dump qw(dump);  
 use File::Path;  
30    
31  our $mech = WWW::Mechanize->new(  our $mech = WWW::Mechanize->new(
32          autocheck => 1,          autocheck => 1,
Legend:
Removed from v.1331  
changed lines
  Added in v.1332
  ViewVC Help
Powered by ViewVC 1.1.26