本帖最后由 523066680 于 2016-8-31 23:59 编辑
就是说无论如何都必须在线获取了对吗
perl- use LWP::UserAgent;
- my $ua = LWP::UserAgent->new;
- my $res;
- my $url = "http://www.baidu.com/link?url=Wu73A5XbmmXbZhGlXCtulGo9VW6nUhnXwxMI4cjO5_j9mVXde7r9LcP5h1GF0qR1&wd=";
-
- $res = $ua->get($url) or warn "$!";
- $res->content() =~ /\("(.*)"\)/;
- print $1;
复制代码 LWP::Simple- use LWP::Simple;
- my $content;
- my $url = "http://www.baidu.com/link?url=Wu73A5XbmmXbZhGlXCtulGo9VW6nUhnXwxMI4cjO5_j9mVXde7r9LcP5h1GF0qR1&wd=";
-
- $content = get($url) or warn "$!";
- $content =~ /\("(.*)"\)/;
- print $1;
复制代码
|