HTTP::Request 用 add-content 添加 POST参数

最新推荐文章于 2023-01-09 17:37:11 发布

weixin_30300523

最新推荐文章于 2023-01-09 17:37:11 发布

阅读量223

点赞数

原文链接：http://www.cnblogs.com/perl6/p/9080886.html

版权

sub MAIN($cmd) {
use HTTP::UserAgent;
my $r = HTTP::Request.new();
$r.uri: 'http://localhost/a.php';
$r.set-method: 'POST';
my $ua = HTTP::UserAgent.new;
$r.add-content("cmd=$cmd");
$r.header.field(:Content-Type<application/x-www-form-urlencoded>);
my $html = $ua.request($r);
say $r.Str;
say $html.content;
}

相似文章:

https://www.cnblogs.com/perl6/p/9404952.html

转载于:https://www.cnblogs.com/perl6/p/9080886.html