perl get请求加请求头

来源：互联网发布：中国人的智慧知乎编辑：程序博客网时间：2024/05/14 02:38
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 $host = "http://127.0.0.1:8000/api2/auth/ping/";   @header = (      'accept'=> "application/json",      'content-type'=> "application/json",      'Authorization'=> "Token $token"     );          $host="http://127.0.0.1:8000/api2/accounts/";      $request = HTTP::Request->new(GET=>"$host");      $request->header(@header);        $response = $ua->request($request);       print $response->decoded_content;       my $r=$response->decoded_content;my $r=encode_utf8($r);    my $arr = decode_json($r);print "---------------------------\n";foreach $a (@{$arr}){  print $a->{"email"};  print "\n";  };
0 0