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

grshrd49

网上实在找不到相关的帖子，cpan上也找不到灵感，感觉不是上传格式写错了就是其他啥问题。总之用jmeter做的上传脚本正常运行，改用perl写就不行了，有大牛来给诊脉不？

这个是页面提交的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";

复制代码

laputa73

perl lwp的没弄过
不过curl命令是可以的
http://tech.idv2.com/2006/12/08/upload-with-curl/

mojo的ua也是有例子的
http://cpan.php-oa.com/perldoc/M ... 591A%6BB5%4E0A%4F20

1.   use Mojo::UserAgent;
   
2. 
   
3.   # 上传文件通过 POST 的 HTTP 方法，并且会修改成  "multipart/form-data" 的类型
   
4.   my $ua = Mojo::UserAgent->new;
   
5.   $ua->post_form('mojolicio.us/upload',
   
6.     {image => {file => '/home/sri/hello.png'}});

复制代码

grshrd49

回复 2# laputa73

额 通过mojo来了点灵感，但还是不行....

1. $return_json = $ua->post("$base_url/survey/a/editSurvey",
   
2.         {
   
3.         paperImage=>'',
   
4.         surveyTitle=>'perlscriptest2',
   
5.         surveyDesc=>'descperl',
   
6.         },
   
7.         myFile=>{filename=>'316x250.png'},
   
8.         'Referer'=>'$base_url/survey',
   
9.         'Content-Type'=>"multipart/form-data;",
   
10. )->content;

复制代码

grshrd49

没人啊 没人啊！

grshrd49

悬赏都没人，是不是分给少了啊

grshrd49

诶 求人不如求自己，搞定了

1. $return_json = $ua->post("$base_url/survey/a/editSurvey",
   
2.         {
   
3.         paperImage=>'',
   
4.         surveyTitle=>time()."_PerlScripTest",
   
5.         surveyDesc=>'descperl',
   
6.         myFile=>["316x250.png"],
   
7.         },
   
8.         'Referer'=>'$base_url/survey',
   
9.         'Content-Type'=>"multipart/form-data;",
   
10. )->content;

复制代码