perl – 如何使用WWW进行分块传输编码上传：Mechanize？

我正在尝试使用特定的Web服务,我可以使用以下命令成功执行上载：

curl -X POST  --header "transfer-encoding: chunked" -d @Downloads/file.pdf https://some.webservice/upload

我得到了一个json回复表明成功.

但是,我无法弄清楚如何对WWW :: Mechanize做同样的事情.

$mech->post("https://" . $server . "/upload",Content_Type => 'multipart/form-data',Content => [upID => $upid,name => $dlfile,userID => 0,userK => 0,file_0 => [$dlfile]]);

这会收到一个类似的json响应,其中包含一个很大的错误消息.

我是否需要先显式设置transfer-encoding标头？还有其他一些技巧吗？谷歌对此没有太多了解,Perlmonks也没有,而且文档有点迟钝.

解决方法

您可以使用HTTP :: Request :: StreamingUpload来完成

my $starttime = time();
my $req = HTTP::Request::StreamingUpload->new(
    POST     => $url,path    => $file,headers => HTTP::Headers->new(
        'transfer-encoding' => 'chunked' 
    ),);

my $gen = $req->content;
die unless ref($gen) eq "CODE";

my $total = 0;
$req->content(sub {
    my $chunk = &$gen();
    $total += length($chunk);

    print "\r$total / $size bytes ("
        . int($total/$size*100)
        . "%) sent,"
        . int($total/1000/(time()-$starttime+1))
        . " k / sec ";

    return $chunk;
});

my $resp = $ua->request($req);
print "\n";

unless ($resp->is_success) {
    die "Failed uploading the file: ",$resp->status_line;
}

my $con = $resp->content;
return $con;