Perl-181006-curl get 测试

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');

Reference

  1. perl 和curl 发送json数据例子
  2. perl http模块总结
  3. Perl的WWW:Curl与LWP模块
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章