Created by www.tryperl.com.

aa.pl

#Created by tryperl.com
use strict;
use warnings;
use URI;
use Web::Scraper;


print "Hello World!\n";
my $uri = "http://price.pcauto.com.cn/26037/news0.html";
my $scraper = scraper {
    process "a[href]", "urls[]" => '@href';
    result 'urls';
};
my $links = $scraper->scrape(URI->new($uri));
use YAML;
warn Dump $links;