如何将多部分/相关消息发布到HTTP服务器？

Question

如何将一个multipart/related消息的两部分发送到HTTP（S）服务器？

我需要这个https://cloud.google.com/storage/docs/json_api/v1/how-tos/multipart-upload

我们使用Perl 5

Answer 1

了如何将多部分/相关主体发送到一些网站的一些演示。我不知道这是否会发送完整的Google API所需的数据，但它应该给出您的想法。仍然建议您对MIME有基本的了解，特别是MIME中多部分消息的构造（其中multipart/related仅仅是一个例子）和Content-Transfer-Encoding。 Wikipedia entry to MIME可能是一个很好的开始。

use strict; 
use warnings; 
use LWP; 
use MIME::Base64 'encode_base64'; 
use HTTP::Request; 

# Create the parts, each consisting of MIME-Header and body. 
my $part1 = 
    "Content-type: application/json; charset=UTF-8\r\n\r\n". 
    "some json here\r\n"; 
my $part2 = 
    "Content-type: image/gif\r\nContent-Transfer-Encoding: base64\r\n\r\n". 
    encode_base64("...image data here..."); 

# Combine the parts to a single multipart, using the boundary defined later 
# in the Content-Type. 
my $body = 
    "--some-boundary\r\n".  # start of 1st part 
    $part1. 
    "--some-boundary\r\n".  # start of 2nd part 
    $part2. 
    "--some-boundary--\r\n"; # end boundary 

# Create the request. The Content-type is multiplart/related and defines 
# the boundary used to separate the parts. 
my $req = HTTP::Request->new(
    POST => 'http://example.com/api/postit', 
    [ 
     'Content-length' => length($body), 
     'Content-type' => 'multipart/related; boundary="some-boundary"', 
    ], 
    $body 
); 
LWP::UserAgent->new->request($req);