Perl-181006-curl get 测试

最新推荐文章于 2020-11-30 20:24:43 发布

转载最新推荐文章于 2020-11-30 20:24:43 发布 · 171 阅读

文章标签：

#curl #Perl #get

Linux 同时被 3 个专栏收录

63 篇文章

订阅专栏

运维

41 篇文章

订阅专栏

Perl

4 篇文章

订阅专栏

本文介绍了一种使用Perl语言模拟Curl进行网络请求的方法，通过具体代码示例展示了如何利用LWP::UserAgent模块获取网页内容、状态行及Content-Type头部信息。

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

Problems

Perl 模拟 Curl 操作

Solution

#/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $url = "http://www.baidu.com";
my $agent=LWP::UserAgent->new();

my $request = HTTP::Request->new(GET=>$url);
my $response=$agent->request($request);
print $response->content();
print $response->status_line();
print $response->header('Content-Type');