##给文件加星标
use LWP::UserAgent;
use LWP;
use Encode;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use URI::Escape;
use URI::URL;
use JSON;
use Data::Dumper;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0");
my $cookie_jar = HTTP::Cookies->new(
file=>'lwp_cookies.txt',
autosave=>1,
ignore_discard=>1);
$ua->cookie_jar($cookie_jar);
my $token_url= 'http://127.0.0.1:8000/api2/auth-token/';
my $res = $ua->post($token_url,
{
'username'=>'015208@zjtl
perl post 请求加请求头
最新推荐文章于 2020-12-14 11:14:13 发布
本文介绍了如何使用Perl编程语言发送POST请求,并详细讲解了如何在请求中添加自定义的请求头,这对于进行API交互或自动化测试非常有用。
摘要由CSDN通过智能技术生成