perl post 请求加请求头的方法

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

perl post 请求加请求头

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

  1. ##给文件加星标
  2. use  LWP::UserAgent; 
  3. use LWP;
  4. use Encode;
  5. use LWP::Simple;
  6. use LWP::UserAgent;
  7. use HTTP::Cookies;
  8. use HTTP::Headers;
  9. use HTTP::Response;
  10. use Encode;
  11. use URI::Escape;
  12. use URI::URL;
  13. use JSON;
  14. use Data::Dumper;
  15.   my $ua = LWP::UserAgent->new;
  16.      $ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0");
  17.   my $cookie_jar = HTTP::Cookies->new(
  18.      file=>'lwp_cookies.txt',
  19.      autosave=>1,
  20.      ignore_discard=>1);
  21.      $ua->cookie_jar($cookie_jar);
  22.    my $token_url= 'http://127.0.0.1:8000/api2/auth-token/';
  23.                 
  24.    my $res = $ua->post($token_url,
  25.                 {
  26.                 'username'=>'015208@zjtlcb.com',
  27.                 'password'=>'1234567'
  28.                 });
  29.    print $res->content();
  30.    print "\n";
  31.       my $r= $res->content();
  32.    my $r=encode_utf8($r);
  33.    my $hash = decode_json($r);
  34.    my $token =$hash->{"token"};
  35.    print "\$r is $r\n";
  36.    
  37.    my $url="http://127.0.0.1:8000/api2/starredfiles/";
  38.    my $res = $ua->post($url,
  39.                 {
  40.                 'repo_id'=>'2e90c188-a605-41ce-854a-833f5196728b',
  41.  'p'=>'/aa'
  42.                 },
  43. 'accept'=> "application/json; indent=4",  
  44.     'content-type'=> "application/x-www-form-urlencoded",  
  45.     'Authorization'=> "Token  $token" 
  46. );
  47.    print $res->content();
  48.    print "\n";
  49.    print $res->status_line();


猜你在找的Perl相关文章