/[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 1369 by dpavlin, Wed Aug 8 14:20:26 2012 UTC revision 1370 by dpavlin, Sun Aug 12 12:38:51 2012 UTC
# Line 12  use Text::Unaccent; Line 12  use Text::Unaccent;
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  $q = 'AU=BRATKO, D';  #$q = 'AU=BRATKO, D';
16    $q = 'CA=BRATKO, D';
17  #$q = 'AD=(croat* OR hrvat*)';  #$q = 'AD=(croat* OR hrvat*)';
18    
19  my $range_size = 100;  my $range_size = 100;
20  my $overlap    = 3; # between previous and this range  my $overlap    = 3; # between previous and this range
21    
22  my $results = 1;  my $results = 0;
23  my $citations = 0;  my $citations = 0;
24  my $cited_reference = 0; # html tables  my $cited_reference = 1; # html tables
25  my $citing_articles = 0; # as many files as cited articles  my $citing_articles = 1; # as many files as cited articles
26    
27  my $cites_by_year = 0;  my $cites_by_year = 0;
28    
# Line 296  if ( $q =~ m{CA=(.+)} && $cited_referenc Line 297  if ( $q =~ m{CA=(.+)} && $cited_referenc
297                  save_mech "/tmp/isi.$q.citedref.$page";                  save_mech "/tmp/isi.$q.citedref.$page";
298    
299                  last unless next_page();                  last unless next_page();
300                    $page++;
301    
302                  if ( $mech->content =~ m/(\d+\s*-\s*(\d+))/ ) {                  if ( $mech->content =~ m/(\d+\s*-\s*(\d+))/ ) {
303                          warn "span: $1\n";                          warn "span: $1\n";
Legend:
Removed from v.1369  
changed lines
  Added in v.1370
  ViewVC Help
Powered by ViewVC 1.1.26