/[webpac-proto]/casopisi/sciencedirect.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 /casopisi/sciencedirect.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by dpavlin, Sat Oct 26 20:44:20 2002 UTC revision 1.6 by dpavlin, Sun Oct 27 21:20:39 2002 UTC
# Line 33  $ua->timeout(60); Line 33  $ua->timeout(60);
33  #$ua->env_proxy();  #$ua->env_proxy();
34  #$ua->proxy(['http', 'ftp'], 'http://proxy.carnet.hr:8001/');  #$ua->proxy(['http', 'ftp'], 'http://proxy.carnet.hr:8001/');
35    
36    print "getting '$url'...\n";
37  my $req = HTTP::Request->new(GET => $url);  my $req = HTTP::Request->new(GET => $url);
38    
39  my $res = $ua->request($req);  my $res = $ua->request($req);
40  if ($res->is_success) {  if ($res->is_success) {
41            print "parsing html...\n";
42          my $tree = HTML::TreeBuilder->new;          my $tree = HTML::TreeBuilder->new;
43  #       $tree->parse_file("list.html");   # !  #       $tree->parse_file("list.html");   # !
44          $tree->parse($res->content);          $tree->parse($res->content);

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.26