perl - 使用 Plack 处理多个文件上传

Question

尝试使用 Plack 处理多个文件上传。

我的表格：

<form id="file_upload" action="savefile" method="POST" enctype="multipart/form-data">
<input type="file" name="file[]" multiple>
<button>upload</button>
</form>

选择了两个文件，分别称为：x1和x2. 结果Data::Dumper：

my $u = $req->uploads;

是

$VAR1 = bless( {
    'file[]' => bless( {
         'headers' => bless( {
              'content-disposition' => 'form-data; name="file[]"; filename="x2"',
              'content-type' => 'application/octet-stream',
              '::std_case' => {
                   'content-disposition' => 'Content-Disposition'
              }
         }, 'HTTP::Headers' ),
         'filename' => 'x2',
         'tempname' => '/var/folders/7l/nhyscwy14bjb_sxr_t2gynpm0000gn/T/7vt04wIrne',
         'size' => 146
    }, 'Plack::Request::Upload' )
}, 'Hash::MultiValue' );

因此，它只包含第二个文件x2，但是当检查文件夹时，/var/folders/7l/nhyscwy14bjb_sxr_t2gynpm0000gn/T/它包含上传的两个文件。

问题是我如何将两个文件都放到脚本中，而不仅仅是最后一个？

Answer 1

for my $upload ($req->upload('file[]')) {
  $upload->filename;
}

您也可以调用@uploads = $req->uploads->get_all('file[]')以获取多个值。

有关详细信息，请参阅perldoc Plack::Request（和）。Hash::MultiValue

您在 Data::Dumper 中看不到它们的原因是 Hash::MultiValue 使用一种称为内向外对象的技术来保存给定键的替代值。