6 my $q = 'TS=psychology AND AD=Croatia';
9 use Data::Dump qw/dump/;
12 my $mech = WWW::Mechanize->new(
21 my $path = "/tmp/isi.$step.html";
22 write_file $path, $mech->content;
23 warn "# step $step ", -s $path;
29 $mech->get( 'http://isiknowledge.com/?DestApp=WOS' );
32 warn "# advanced serach";
33 $mech->follow_link( url_regex => qr/AdvancedSearch/ );
36 warn "# cookie_jar ", dump $mech->cookie_jar;
40 'value(input1)' => $q,
46 $mech->follow_link( url_regex => qr/summary/ );
53 form_name => 'summary_output_form',
55 record_select_type => 'range',
57 mark_to => $from += $range_size,
60 qo_fields => 'fullrecord',
61 citedref => 'citedref',
63 save_options => 'plain_text',
73 $mech->follow_link( url_regex => qr/save_file/ );