如何获取只上载文件的cgi.pm字段列表?

cgi.pm没有等价于 upload_fieldnames() 方法,但可以使用 param() 和 upload() 方法。 参数() 将为您提供所有参数名称的列表,您可以使用 上载() 检查每个文件是否都是文件上传。

my @upload_fieldnames;

foreach (param()) {
  push @upload_fieldnames, $_ if upload($_);
}

或者,作为一条直线:

my @upload_fields = grep { upload($_) } param();

更新: 我只是想对此事发表评论。

我正在尝试将此代码修改为使用cgi.pm,因为Centos7更常见。

我不确定您的用例在这里是什么,但我强烈怀疑您的时间最好花在如何安装所需模块上,而不是在缺少某些模块的情况下工作。

如果它对您有任何帮助,我刚刚构建了一个cgi::simple的RPM,并将其上载到了我的RPM存储库 rpm-mag-sol.com .