perl - 如何在perl中上传多个文件？

Question

我需要使用 perl cgi 上传多个文件。我使用表单类型作为

enctype="multipart/form-data and also set multiple='multiple' in input type file.

只需要知道我们应该在服务器端写什么？

谁能告诉我如何使用 perl 上传多个文件？

Answer 1

下面的代码就足够了，将参数中存在的文件上传到/storage 位置:

use CGI;
my $cgi = new CGI;
my @files = $cgi->param('multi_files[]');
my @io_handles=$cgi->upload('multi_files[]');
foreach my $upload(@files){
    print "Filename: $upload<br>";
    my $file_temp_path = "/storage";
    my $upload_file  = shift @io_handles; 
    open (UPLOADFILE,">$file_temp_path/$upload") or print "File Open Error";
    binmode UPLOADFILE;
    while (<$upload_file>) {
        print UPLOADFILE;
    }
}
print "Files Upload done";