HTTP 서버에 멀티 파트/관련 메시지를 POST하는 방법은 무엇입니까?

Question

multipart/related 메시지를 HTTP (S) 서버에 POST하는 방법은 무엇입니까?

나는 우리가

Answer 1

일부 사이트에 다중/관련 몸을 전송하는 방법 중 일부 데모 펄 5. https://cloud.google.com/storage/docs/json_api/v1/how-tos/multipart-upload

이 필요합니다. 이것이 Google API에서 요구하는 데이터를 정확하게 전송하는지는 모르겠지만 아이디어를 제공해야합니다. MIME에 대한 기본적인 이해, 특히 다중 부분/관련이 하나의 예일뿐 아니라 MIME에서 다중 부분 메시지의 구성과 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);