perl post 请求加请求头
在perl开发中,如何通过perl语言进行post请求加请求头的方法,今天分享给大家。希望对你有所帮助。
- ##给文件加星标
- 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();