perl中的多部分编码文件内容

Question

我想从Perl向REST API服务发出一个POST请求。作为POST表单参数，服务需要一个多部分编码的文件。

use HTTP::Request::Common;
use LWP::UserAgent;

my $file="/path/to/file";
my $REST_URL = "/path/to/REST/service";
my $ua = LWP::UserAgent->new;
my $response= $ua->post($REST_URL, ['file' => $file]);

我写了上面的代码。但是显然REST服务器无法理解POST请求，因为我只将文件路径发送到REST服务，而不是多部分编码的文件内容。有人能告诉我如何使文件多部分编码并将其作为POST请求发送到REST服务，而REST服务期望多部分编码的文件作为表单参数吗？

作为补充说明，我实际上想编写与下面的Python代码等效的Perl代码。

REST_URL = "/path/to/REST/service"
SAMPLE_FILE = "/path/to/file"

with open(SAMPLE_FILE, "rb") as sample:
   multipart_file = {"file": ("temp_file_name", sample)}
   request = requests.post(REST_URL, files=multipart_file)

但是，由于我对Python的了解有限，我不理解multipart_file={“file”：（“temp_file_name”，sample）}这一行。我想，解释这条线到底在做什么也会对我有所帮助。

Answer 1

如模块文档中所述HTTP:：Request:：Common

$ua->post($REST_URL,
  Content_Type => 'form-data',
  Content      => [
    file => [$file]
  ],
);