Perl - HTTP :: Request :: Common - POST文件和数组

Dee*_*ula 3 perl post

我正在尝试将文件POST到webapp端点.问题是在同一个请求中我需要将数组包含为其中一个参数的值.

my $ua = LWP::UserAgent->new();
my $response = $ua->post(
    $baseurl_local . 'create',
    Content_Type => 'form-data',
    Content      => [
    file =>  [$file],
    targetLang => 'french',
]);
Run Code Online (Sandbox Code Playgroud)

工作得很好.

但是,当我尝试

my $ua = LWP::UserAgent->new();
my $response = $ua->post(
    $baseurl_local . 'create',
    Content_Type => 'form-data',
    Content      => [
    file =>  [$file],
    targetLang => ['french','spanish],
]);
Run Code Online (Sandbox Code Playgroud)

我明白了

无法打开文件法语:C:/Strawberry/perl/site/lib/HTTP/Request/Common.pm第154行没有这样的文件或目录.HTTP :: Request :: Common :: form_data(ARRAY(0x6800698), undef,HTTP :: Request = HASH(0x6803a70))在C:/Strawberry/perl/site/lib/HTTP/Request/Common.pm第67行调用

看起来Perl认为使用语言的数组引用是一个文件.

我究竟做错了什么?


根据Matt的答案扩展分辨率:我最初忘了提及,语言列表来自用户输入,所以我最终做了类似的事情:

my @languages = (targetLang => 'french', targetLang => 'spanish');
my $ua = LWP::UserAgent->new();
my $response = $ua->post(
    $baseurl_local . 'create',
    Content_Type => 'form-data',
    Content      => [
        file =>  [$file],
        @languages,
]);
Run Code Online (Sandbox Code Playgroud)

Mat*_*cob 5

HTTP :: Request :: Common文档:

可以通过重复字段名称或将值作为数组引用传递来指定多值表单字段.

POST方法还支持RFC 1867中指定的基于表单的文件上载multipart/form-data使用的内容 .您可以通过将内容类型指定为请求标头之一来触发此内容格式.如果其中一个值是数组引用,则将其视为文件部件规范...'form-data'$form_ref

因此,虽然您通常可以使用数组引用指定多值字段,但数组引用对multipart/form-data内容具有特殊意义,您可能必须通过重复字段名称来解决它:

my $response = $ua->post(
    $baseurl_local . 'create',
    Content_Type => 'form-data',
    Content      => [
        file       => [$file],
        targetLang => 'french',
        targetLang => 'spanish',
    ],
);
Run Code Online (Sandbox Code Playgroud)