multipart formdata格式的post 如何用perl模擬上傳文件訥

grshrd49

這個是頁面提交的post表單中的其中一塊
改了好好多次了，普通的請求數(shù)據(jù)服務(wù)器都收到了，但是文件上傳這塊服務(wù)器始終沒有收到，返回也沒有任何錯誤！
有人對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--
   

復(fù)制代碼

我的代碼片段

1. 
   
2. ######
   
3. #創(chuàng)建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";

復(fù)制代碼

grshrd49

沒人自己頂了！