gamester88
gamester88_cu
全部博文(159)
2010年(39)
2009年(106)
2008年(14)
zhaiqi16
cynthia
52246852
ghsyeu
dj15621
lmt81858
笑倚春风
JenGuo
求上进
分类:
2010-01-13 16:04:56
#!/usr/bin/perl use strict; use warnings; use URI; use Web::Scraper; use URI::Escape; use LWP::UserAgent; use Encode; my $url = ""; my $worker = scraper { # process "ul", "weathers[]" => "TEXT"; process "#weather_detail ul", "weathers[]" => "TEXT"; }; print "Starting...\n"; my $result = $worker->scrape( URI->new($url) ); binmode STDOUT, ":utf8"; my $weather=''; $weather.=$_ for @{ $result->{weathers} } ; my $ua = LWP::UserAgent->new;my $res= $ua->post(''."$weather");
上一篇:Template::Extract
下一篇:用perl查询ip地址归属地
登录 注册