| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1467 人关注过本帖
标题:用 perl 取回 网页
只看楼主 加入收藏
madfrogme
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:21
帖 子:1160
专家分:1106
注 册:2009-6-24
结帖率:98.63%
收藏
 问题点数:0 回复次数:0 
用 perl 取回 网页
用perl 的LWP来获取url

程序代码:
#!/usr/bin/perl 

use strict;
use LWP;

my $url = shift;

my $agent = LWP::UserAgent->new;
my $request = HTTP::Request->new(GET => $url);

my $response = $agent->request($request);

$response->is_success or die "$url: ", $response->message,"\n";

print $response->content;


$ ./get_url.ple http://www. > home.html

1 LWP::UserAgent->new 用来生成一个新的对像

 2 HTTP::Request->new(GET => $url) 指定GET方法,传递url

返回一个对像

3 HTTP::Request生成的对像传递给 resquest() 方法

4 显示拿回的答复


[ 本帖最后由 madfrogme 于 2012-12-4 16:48 编辑 ]
搜索更多相关主题的帖子: 网页 request content message Request 
2012-12-04 15:47
快速回复:用 perl 取回 网页
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.055307 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved