perl send HTTP Request

perl send HTTP Request

使用Perl进行发送HttP请求

perl 复制代码
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
use JSON::PP;

my $test_url = "htttp://127.0.0.1:8080/update/";

sub sendHttp{
  my $user_agent = LWP::UserAgent->new(timeout=>60);
  my ($url, $method, $header_ref, $data_ref) = @_;
  my $request = HTTP::Request->new($method => $url, HTTP::Headers->new (%{$header_ref}), $data_json);
  $request->header(Content_Type => 'application/json');
  my $response = $ua->request($request);
  return decode_json($response->content);
}

此时我们可以使用这个函数对http服务发送请求。

perl 复制代码
my $json_response = sendHttp($test_url, "POST", {"ttt-cookie"=>"abcd"}, {param1 => "param1"});

print($json_response -> {status});
print($json_response -> {message});
相关推荐
顶呱呱程序3 分钟前
2-140 基于Solidworks和Matlab Simulink Simscape仿真的机器人手臂仿真
开发语言·matlab·机器人·simulink·simscape·机器人手臂仿真
Justin_ly14 分钟前
Java 用户随机选择导入ZIP文件,解压内部word模板并入库,Windows/可视化Linux系统某麒麟国防系统...均可适配
java·开发语言·python
2401_8582861123 分钟前
L5.【LeetCode笔记】移除链表元素(未完)
c语言·开发语言·笔记·leetcode·链表
迷茫.40427 分钟前
第七章 利用CSS和多媒体美化页面
开发语言·javascript·ecmascript·1024程序员节
"wink41 分钟前
Python实现全国岗位招聘信息可视化分析(源码+论文+部署讲解)
开发语言·python·信息可视化
lly20240641 分钟前
CSS 计数器:深入解析与高级应用
开发语言
观音山保我别报错1 小时前
C语言猜数字小游戏
c语言·开发语言·学习方法
java1234_小锋1 小时前
[免费]基于Python的Django+Vue3在线考试系统【论文+源码+SQL脚本】
开发语言·python
monkey_meng1 小时前
【rust中的闭包】
开发语言·后端·rust·边缘计算
陈序缘1 小时前
Rust 力扣 - 1493. 删掉一个元素以后全为 1 的最长子数组
开发语言·后端·算法·leetcode·职场和发展·rust