perl post 带中文名字的文件

来源：互联网发布：淘宝图文详情怎么编辑编辑：程序博客网时间：2024/05/01 20:16
###列出组信息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 JSON::backportPP;use Data::Dumper;  if ( $#ARGV < 3 ){          print "please input your  username password  file repo_id!\n";print "just like 015208  1234567   aa.txt  'a3333a72-bb7f-477a-a7ed-7b05b029a9b9' ";        exit(-1);};  my $username=$ARGV[0];  my $password=$ARGV[1];  my $file=$ARGV[2];  my $repo_id=$ARGV[3];  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'=>"$username\@zjtlcb.com",                'password'=>"$password"                });   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";     @header = (      'accept'=> "application/json",      'content-type'=> "application/json",      'Authorization'=> "Token $token",'Charset'=>"UTF-8"    );      $host="http://10.5.100.241:8000/api2/repos/$repo_id/upload-link/";      $request = HTTP::Request->new(GET=>"$host");      $request->header(@header);        $response = $ua->request($request);      #print $response->decoded_content;      my $upload_link=$response->decoded_content;chomp $upload_link;print $upload_link;print "\n";    #curl -H "Authorization: Token 262a8daefa5eb52ea5eaf71688965843b7b0ad20" -F file=@aa.txt -F filename=aa.txt -F parent_dir=/ http://10.5.100.241:8082/upload-api/e0f952df-53dd-4f6d-b803-ae3df1f6c561my $url=$upload_link;    my $res = $ua->post($url,      'content-type'=> "form-data",     'Authorization'=> "Token  $token" ,Content =>[file =>[$file,encode("utf8",decode("gbk",$file)),@header], parent_dir=>'/']);    print "---------------------------\n";    print $res->content();     print $response->status_line();#system("curl -H "Authorization: Token 262a8daefa5eb52ea5eaf71688965843b7b0ad20" -F file=@aa.txt -F filename=aa.txt -F parent_dir=/ http://10.5.100.241:8082/upload-api/c49fdc5e-ab3f-4e2a-968d-46ccfa587683");
0 0