Perl请求发送zip文件为base64？

Question

我有一个Perl脚本试图发送一个压缩文件，像这样用LWP用户代理模块

my $req = POST $url, Content_Type => 'form-data', 
    Content  => [ 
     submit => 1, 
     upfile => [ $fname ] 
    ]; 

其中$ FNAME是文件的路径。在服务器端，虽然看起来我的POST数组只有“提交”。 我应该base64编码文件并将其分配给一个变量？什么是最好的方法来做到这一点？

Answer 1

确保可以解析文件名。尽管如此，你应该得到一个错误。至少我在我的版本HTTP::Request::Common。

您不必将二进制内容编码为Base64。 （当然，除非，服务器端应用程序恰好期望的格式。）

下面是一个完整的示例脚本：

use strict; 
use warnings; 
use LWP::UserAgent; 
use HTTP::Request::Common 'POST'; 

my $ua = LWP::UserAgent->new; 
my $url = 'http://localhost:8888'; # Fiddler 
my $req = POST $url, 
    Content_Type => 'form-data', 
    Content => [ 
     submit => 1, 
     upfile => [ 'C:\temp\bla.zip' ], 
    ]; 
my $line = '=' x 78 . "\n"; 
print $line, $req->as_string; 
my $rsp = $ua->request($req); 
print $line, $rsp->as_string;