利用perl提取网页内容

#!/usr/bin/perl

use strict;

use warnings;

use URI;

use Web::Scraper;

use URI::Escape;

my $url = "";

my $worker = scraper {

    process "code", "weathers[]" => "TEXT";

};

print "Starting...\n";

my $result = $worker->scrape( URI->new($url) );

for my $weather ( @{ $result->{weathers} } ) {

   print "$weather\n";

}