perl DELETE 加请求头
2017-01-18 15:15
267 查看
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; indent=4", 'content-type'=> "application/x-www-form-urlencoded", '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"; }; ##创建用户 ##"password=1234567" 为put的数据 my $url='http://127.0.0.1:8000/api2/starredfiles?repo_id=2e90c188-a605-41ce-854a-833f5196728b&p=/aa'; push @{$ua->requests_redirectable},'DELETE'; $request = HTTP::Request->new(DELETE=>$url,HTTP::Headers->new('content-type'=> "application/x-www-form-urlencoded", 'accept'=> "application/json; indent=4", 'Authorization'=> "Token $token")); $request->header(@header); $response = $ua->request($request); print $response->content; print $response->status_line(); print $response->as_string();
相关文章推荐
- 【解决Xcode】IB Designables: Failed to update auto layout status
- Android 存储
- Java/Android开发规范——变量和常量命名
- WSDL WebService的创建和使用实例
- auto_ptr源码分析
- KINERCODE.JS
- css div li 使用float但高度不确定造成的错位问题我遇到的(部分360浏览器问题)
- redirect_uri_mismatch
- 代码混淆步骤详解
- javascript合并两个对象
- Qt实现名字的"幸运大抽奖"
- 我们为何要使用多线程,它有什么优点?
- Transactions in Kafka
- mybatis之mybatis-config.xml 配置详解
- 关于socket.shutdown的一个小的错误总结
- JDK安装动作解析,最为完善的一篇
- akka学习教程(十二) Spring与Akka的集成
- SPI通信
- httpclient工具类
- 如何让一个简单的maven项目支持one-jar 做成一个jar fatjar