###列出组信息
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---------信息开发部数据中心