perl post 请求加请求头的方法

前端之家收集整理的这篇文章主要介绍了perl post 请求加请求头的方法前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

perl post 请求加请求头

在perl开发中,如何通过perl语言进行post请求加请求头的方法,今天分享给大家。希望对你有所帮助。

@H_404_4@##给文件加星标 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@zjtlcb.com',                 'password'=>'1234567'                 });    print $res->content();    print "\n";       my $r= $res->content();    my $r=encode_utf8($r);    my $hash = decode_json($r);    my $token =$hash->{"token"};    print "\$r is $r\n";        my $url="http://127.0.0.1:8000/api2/starredfiles/";    my $res = $ua->post($url,                 {                 'repo_id'=>'2e90c188-a605-41ce-854a-833f5196728b',  'p'=>'/aa'                 }, 'accept'=> "application/json; indent=4",       'content-type'=> "application/x-www-form-urlencoded",       'Authorization'=> "Token  $token"  );    print $res->content();    print "\n";    print $res->status_line();


猜你在找的Perl相关文章