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();
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。