获取响应头信息

最新推荐文章于 2024-06-07 13:25:32 发布

scan724

最新推荐文章于 2024-06-07 13:25:32 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： perl 面向对象编程

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/46844877

perl 面向对象编程专栏收录该内容

18 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了如何使用Perl的LWP::Simple和LWP::UserAgent模块来获取HTTP响应头信息，包括Date和Server等字段。示例代码展示了从'http://www.zjcap.cn/'获取并解析响应头的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<pre name="code" class="sql">取网页返回header 响应header

[root@dr-mysql01 test]# cat a3.pl 
 use LWP::Simple;
 

        @content = head("http://www.zjcap.cn/");
        die "Couldn't get it!" unless defined @content;
        print "\@content is @content\n";

[root@dr-mysql01 test]# perl a3.pl 
@content is text/html 26507 1436245136  nginx/1.7.7
.
[root@dr-mysql01 test]# date -d @1436245136
Tue Jul  7 12:58:56 CST 2015
[root@dr-mysql01 test]# 

[root@master test]# cat a9.pl 
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
$ua = LWP::UserAgent->new(timeout=>180);
$request = HTTP::Request->new;
$request->header('Accept-Language', 'zh-CN,zh;q=0.8');
$response = $ua->request($request);
my $response = $ua->get('http://www.zjcap.cn');

了解本专栏