Save link to file : HTML Parser « Network « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Network » HTML Parser 
Save link to file
    

use LWP::Simple;
require HTML::Parser;

require HTML::LinkExtor;

$html = get("http://www.google.com");

$link_extor = HTML::LinkExtor->new(\&handle_links);

$link_extor->parse($html);

sub handle_links 
{

     ($tag, %links= @_;

     if ($tag = 'a href' && $links{hrefne '') {

        $url = $links{href};

        $file = $url;
        $file =~ s/http:\/\/www\.//;
        $file =~ s/http:\/\///g;
        $file =~ tr/\//-/;

        print "Creating $file.\n";

        mirror ($url, $file);
     };
}

   
    
    
    
  
Related examples in the same category
1.Extract link from a web page
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.