/[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 1368 by dpavlin, Tue Jun 29 19:32:20 2010 UTC revision 1369 by dpavlin, Wed Aug 8 14:20:26 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 = 'CA=BRATKO, D';  $q = 'AU=BRATKO, D';
16    #$q = 'AD=(croat* OR hrvat*)';
17    
18  my $range_size = 500;  my $range_size = 100;
19  my $overlap    = 3; # between previous and this range  my $overlap    = 3; # between previous and this range
20    
21  my $results = 0;  my $results = 1;
22  my $citations = 0;  my $citations = 0;
23  my $cited_reference = 0; # html tables  my $cited_reference = 0; # html tables
24  my $citing_articles = 1; # as many files as cited articles  my $citing_articles = 0; # as many files as cited articles
25    
26  my $cites_by_year = 0;  my $cites_by_year = 0;
27    
# Line 55  sub save_mech { Line 56  sub save_mech {
56  }  }
57    
58  warn "# get session";  warn "# get session";
59  $mech->get( 'http://isiknowledge.com/?DestApp=WOS' );  $mech->get( 'http://www.webofknowledge.com/?DestApp=WOS' );
60  save_mech;  save_mech;
61    
62  sub search {  sub search {
# Line 93  sub get_results { Line 94  sub get_results {
94                  my $to = $from + $range_size;                  my $to = $from + $range_size;
95    
96                  warn "# submit_form results $from - $to\n";                  warn "# submit_form results $from - $to\n";
97                    save_mech;
98    
99                  $mech->submit_form(                  $mech->submit_form(
100                          form_name => 'summary_output_form',                          form_name => 'output_form',
101                          fields => {                          fields => {
102                                  record_select_type => 'range',                                  'value(record_select_type)' => 'range',
103                                    markFrom => $from,
104                                    markTo => $to,
105    
106                                  mark_from => $from,                                  mark_from => $from,
107                                  mark_to => $to,                                  mark_to => $to,
108                                  mark_id => 'WOS',                                  mark_id => 'WOS',
109    
110                                  qo_fields => 'fullrecord',                                  fields_selection => 'ACCESSION_NUM FUNDING SUBJECT_CATEGORY JCR_CATEGORY LANG IDS PAGEC SABBR CITREFC ISSN PUBINFO KEYWORDS CITTIMES ADDRS CONFERENCE_SPONSORS DOCTYPE ABSTRACT CONFERENCE_INFO SOURCE TITLE AUTHORS',
111                                  citedref => 'citedref',                                  filters => 'ACCESSION_NUM FUNDING SUBJECT_CATEGORY JCR_CATEGORY LANG IDS PAGEC SABBR CITREFC ISSN PUBINFO KEYWORDS CITTIMES ADDRS CONFERENCE_SPONSORS DOCTYPE ABSTRACT CONFERENCE_INFO SOURCE TITLE AUTHORS CITREF',
112                                    fullrec_fields_option => 'CITREF',
113    
114                                  save_options => 'plain_text',                                  save_options => 'fieldtagged',
115                                    format => 'saveToFile',
116    
                                 fields => 'Full',  
                                 format => 'save',  
117                          },                          },
118                          button => 'save',                          button => 'saveToFile',
119                  );                  );
120                  save_mech;                  save_mech;
121    
# Line 129  sub get_results { Line 134  sub get_results {
134                  $path .= '.' . $desc if $desc;                  $path .= '.' . $desc if $desc;
135    
136                  warn "save $from - $to into $path\n";                  warn "save $from - $to into $path\n";
137                  $mech->follow_link( url_regex => qr/save_file/ );                  $mech->submit_form(
138                            form_name => 'etsForm',
139                    );
140                  save_mech $path;                  save_mech $path;
141    
142                  $from += $range_size - $overlap;                  $from += $range_size - $overlap;
143    
144                  $mech->back;                  $mech->back;
145                  $mech->back;                  $mech->back;
146                  #save_mech;                  save_mech;
147          }          }
148  }  }
149    
Legend:
Removed from v.1368  
changed lines
  Added in v.1369
  ViewVC Help
Powered by ViewVC 1.1.26