如何在Perl(CGI)环境下使用dropzone.js实现文件上传

你的Perl代码无法正常运行，核心是两个问题：

• Dropzone.js 默认上传文件的表单字段名为file，和你参考的PHP代码中$_FILES['file']的键名完全对应，你代码中错误地读取name字段的参数、调用upload("name")拿文件句柄，根本获取不到上传的文件内容
• Perl CGI脚本执行时必须先输出合法的HTTP响应头，否则Web服务器会直接返回500错误，你的代码完全没做这步

首先确认前置准备：

• 服务器已安装CGI、File::Basename这两个Perl模块，CGI模块一般随Perl默认安装，缺失的话通过cpan工具安装即可
• 你指定的文件存储目录，要给Web服务器的运行账号开放读写权限，Windows环境下就是IIS/Apache/Nginx的服务运行用户对目标文件夹有写入权限
• 脚本第一行的Perl解释器路径要和你服务器上的实际安装路径一致，比如Perl装在C:/Perl/bin下，第一行就写#!C:/Perl/bin/perl.exe

保存为upload.cgi，放到你CGI可执行目录下：

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use File::Basename;

# 初始化CGI实例
my $cgi = CGI->new;

# 配置文件存储根目录，Windows路径用正斜杠即可，路径结尾必须带斜杠
my $save_root = 'C:/xxx/xx/xxx/xxx/xxx/';

# 获取上传文件句柄，注意字段名必须是file，和Dropzone默认配置匹配
my $upload_fh = $cgi->upload('file');

# 输出CGI要求的HTTP响应头
print $cgi->header('text/plain; charset=utf-8');

if ($upload_fh) {
    # 读取客户端上传的原始文件名
    my $origin_filename = $cgi->param('file');
    # 过滤文件名里的路径字符，避免目录遍历漏洞，同时拆分文件名和扩展名
    my ($name, undef, $ext) = fileparse($origin_filename, qr/\.[^.]*/);
    # 拼接最终存储路径，逻辑和原PHP代码一致，直接用原文件名存储
    my $final_path = $save_root . $name . $ext;

    # 二进制模式读写，避免图片、压缩包等二进制文件损坏
    binmode $upload_fh;
    open(my $write_fh, '>:raw', $final_path) or die "文件写入失败: $!";
    while (my $buffer = <$upload_fh>) {
        print $write_fh $buffer;
    }
    close $write_fh;
    close $upload_fh;

    print "上传完成";
} else {
    print "未检测到上传文件";
}

1;

• 将原有Dropzone表单的action属性从upload.php修改为你这个CGI脚本的访问路径，比如action="/cgi-bin/upload.cgi"
• 不要修改Dropzone配置里的paramName参数，保持默认值file即可和后端对接

• 生产环境使用时建议加文件扩展名白名单校验，只允许你前端配置的png、jpg、gif等图片格式上传，避免恶意脚本上传风险
• 现有逻辑和原PHP代码一致，同名文件会直接覆盖，要是需要避免重名可以在存储文件名前加时间戳、随机字符串
• 如果脚本运行报错直接去Web服务器的错误日志看具体报错信息，CGI环境下直接在代码里die的内容不会正常展示在浏览器端

内容的提问来源于stack exchange，提问作者Pedro