Perl 使用Plack处理多个文件上载

Perl 使用Plack处理多个文件上载,perl,plack,Perl,Plack,正在尝试使用Plack处理多个文件上载 我的表格: <form id="file_upload" action="savefile" method="POST" enctype="multipart/form-data"> <input type="file" name="file[]" multiple> <button>upload</button> </form> 是 因此,它只包含第二个文件x2,但选中文件夹/var/fold

正在尝试使用Plack处理多个文件上载

我的表格:

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

因此,它只包含第二个文件
x2
,但选中文件夹
/var/folders/7l/nhyscwy14bjb\u sxr\u t2gynpm0000gn/T/
时,它包含上载的两个文件

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

for my $upload ($req->upload('file[]')) {
  $upload->filename;
}
您还可以调用
@uploads=$req->uploads->get_all('file[])
来获取多个值

有关更多详细信息,请参见(和)

在Data::Dumper中看不到它们的原因是Hash::MultiValue使用一种称为inside out object的技术来保存给定键的备用值

$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' );
for my $upload ($req->upload('file[]')) {
  $upload->filename;
}