• perl put 发送数据


    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 $user=$ARGV[0];
      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://10.5.100.241: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
    ";
       my $host = "http://10.5.100.241:8000/api2/auth/ping/";
       @header = (  
        'accept'=> "application/json; indent=4",  
        'content-type'=> "application/x-www-form-urlencoded",  
        'Authorization'=> "Token  $token" 
    	
        );  
        
        $host="http://10.5.100.241: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 "---------------------------
    ";
    	foreach $a (@{$arr}){
    	  print $a->{"email"};
    	  print "
    ";
    	  };
    ##创建用户
        ##"password=1234567" 为put的数据
        my $url="http://10.5.100.241:8000/api2/accounts/$user@zjtlcb.com";
    	push @{$ua->requests_redirectable},'PUT';
        $request = HTTP::Request->new(PUT=>$url,HTTP::Headers->new('content-type'=> "application/x-www-form-urlencoded",
    	'accept'=> "application/json; indent=4", 
    	'Authorization'=> "Token  $token"),"password=1234567");  
        $request->header(@header);  
      
        $response = $ua->request($request);   
        print $response->content; 
        print $response->status_line();	
    	print $response->as_string();
    	
        # my $response = $ua->put($url,
        # 'accept'=> "application/json; indent=4",  
        # 'content-type'=> "application/x-www-form-urlencoded",  
        # 'Authorization'=> "Token  $token" ,
    	# "password"=>"1234567"
        
    							# );
         # print $response->status_line();
    	 # print $response->as_string();
     
    
    
    Create Account
    
    PUT https://cloud.seafile.com/api2/accounts/{email}/
    
    Request parameters
    
    password
    is_staff (defaults to False)
    is_active (defaults to True)
    Sample request
    
    curl -v -X PUT -d "password=123456" -H "Authorization: Token f2210dacd9c6ccb8133606d94ff8e61d99b477fd" -H 'Accept: application/json; indent=4' https://cloud.seafile.com/api2/accounts/newaccount@gmail.com/

  • 相关阅读:
    SPSS分析技术:CMH检验(分层卡方检验);辛普森悖论,数据分析的谬误
    揭秘10个大数据神话 为你排除几个误区
    SPSS统计分析案例:无空白列重复正交试验设计方差分析
    SPSS统计分析案例:无空白列重复正交试验设计方差分析
    单点登录系统和CAS的简介
    多线程
    HTTP 400错误--请求无效
    前端框架bootstrap(响应式布局)入门
    MQ(队列消息的入门)
    ActiveMQ下载与安装(Linux环境下进行)
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13349900.html
Copyright © 2020-2023  润新知