• perl 解json 中文问题


    ###列出组信息
    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 "
    ";
       my $r= $res->content();
       my $r=encode_utf8($r);
       my $hash = decode_json($r);
       my $token =$hash->{"token"};
       print "$r is $r
    ";
      
       @header = (  
        'accept'=> "application/json",  
        'content-type'=> "application/json",  
        'Authorization'=> "Token $token" 
        );  
        
        $host="http://127.0.0.1:8000/api2/groups/";  
        $request = HTTP::Request->new(GET=>"$host");  
        $request->header(@header);  
      
        $response = $ua->request($request);  	
        #print $response->decoded_content;  
    	my $content=$response->content; 
        $r=encode_utf8($content);
    	$arr=decode_json($r);
    	#print Dumper(@{$arr->{"groups"}});
         foreach $a (@{$arr->{"groups"}}){
    	  my $groupname=$a->{"name"};
    	  my $groupid=$a->{"id"};
    	  print $groupid."---------".encode("gbk",decode("utf8",encode_utf8($groupname)))."
    ";;
    	  };
    
    解json 中文:
    D:apiscripts>perl get_list_group.pl
    {"token": "c22dd7abe13a14371ad28775f60bd6b0d99d5a8b"}
    $r is {"token": "c22dd7abe13a14371ad28775f60bd6b0d99d5a8b"}
    6---------信息开发部应用支持中心
    7---------信息开发部测试中心
    8---------信息开发部数据中心
    

  • 相关阅读:
    bootstrap
    移动视口,以及适配
    CSS线性渐变
    css之什么是bfc
    css 深入进阶之定位和浮动三栏布局
    webpack 4 技术点记录
    jQuery的学习总结
    jQuery 知识大全
    JS高级进阶
    正则
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13349906.html
Copyright © 2020-2023  润新知