multipart formdata格式的post 如何用perl模拟上传文件讷

grshrd49

这个是页面提交的post表单中的其中一块
改了好好多次了，普通的请求数据服务器都收到了，但是文件上传这块服务器始终没有收到，返回也没有任何错误！
有人对post请求有深入了解的没？

1. 
   
2. POST data:
   
3. --rqZkSQWTz_5hfkhgvH8r6garI7hGxw
   
4. Content-Disposition: form-data; name="myFile"; filename="316x250.png"
   
5. Content-Type: image/png
   
6. Content-Transfer-Encoding: binary
   
7. 
   
8. <actual file content, not shown here>
   
9. --rqZkSQWTz_5hfkhgvH8r6garI7hGxw--
   

复制代码

我的代码片段

1. 
   
2. ######
   
3. #创建survey_title
   
4. ######'C:\Users\Public\Pictures\testPic\316x250\316x250.png'
   
5. open MF,"316x250.png";
   
6. my $read;
   
7. while(<MF>){
   
8.         $read .= $_;
   
9. }
   
10. close MF;
    
11. #print @readfile;
    
12. $return_json = $ua->post("$base_url/survey/a/editSurvey",
    
13.         {
    
14.         paperImage=>'',
    
15.         surveyTitle=>'perlscriptest2',
    
16.         surveyDesc=>'descperl',
    
17.         },
    
18.         myFile=>$read,
    
19.         filename=>"316x250.png",
    
20.         'Referer'=>"$base_url/survey",
    
21.         'Content-Type'=>"multipart/form-data;",
    
22.        
    
23. )->content;
    
24. my $surveyid;
    
25. $surveyid = $1 if($return_json =~ /"surveyId":"(\d+)"/);
    
26. print "surveyid = $surveyid\n";
    
27. print "editSurvey - $return_json\n";
    
28. print FF "editSurvey - $return_json\n";

复制代码

grshrd49

没人自己顶了！