[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
额……看了别的帖子,好像不是直接能解的

http://bbs.125.la/forum.php?mod= ... 6%E6%90%9C%E7%B4%A2

TOP

本帖最后由 523066680 于 2016-8-31 23:59 编辑

就是说无论如何都必须在线获取了对吗
perl
  1. use LWP::UserAgent;
  2. my $ua = LWP::UserAgent->new;
  3. my $res;
  4. my $url = "http://www.baidu.com/link?url=Wu73A5XbmmXbZhGlXCtulGo9VW6nUhnXwxMI4cjO5_j9mVXde7r9LcP5h1GF0qR1&wd=";
  5. $res = $ua->get($url) or warn "$!";
  6. $res->content() =~ /\("(.*)"\)/;
  7. print $1;
复制代码
LWP::Simple
  1. use LWP::Simple;
  2. my $content;
  3. my $url = "http://www.baidu.com/link?url=Wu73A5XbmmXbZhGlXCtulGo9VW6nUhnXwxMI4cjO5_j9mVXde7r9LcP5h1GF0qR1&wd=";
  4. $content = get($url) or warn "$!";
  5. $content =~ /\("(.*)"\)/;
  6. print $1;
复制代码

TOP

返回列表