网页文件上传总是损坏

Question

我正在尝试将文件上传添加到现有网页。

每次我上传我都会得到一个损坏的文件。

我确保在文件句柄上设置了binmode。我还在表单中将输入 enctype 设置为 multipart/formdata。

我的代码如下

$article{upload_file_name} = $cgi->param( 'upFile' );
$article{upload_file}      = $cgi->upload( 'upFile' );

if ( $article{upload_file_name} ne "" or $article{upload_file_name} ne null ) {

    open( UPLOADS, ">$uploads_dir/$article{upload_file_name}" )
            or die "Could not open $uploads_dir/$article{upload_file_name}";

    binmode UPLOADS;

    while ( <$article{upload_file}> ) {
        print UPLOADS;
    }

    close UPLOADS;
}

我也试过了

$article{upload_file} = $cgi->param( 'upFile' );

if ( $article{upload_file} ne "" or $article{upload_file} ne null ) {

    open( UPLOADS, ">$uploads_dir/$article{upload_file}" )
            or die "Could not open $uploads_dir/$article{upload_file}";
    binmode UPLOADS;

    while ( <$article{upload_file}> ) {
        print UPLOADS;
    }

    close UPLOADS;
}

Answer 1

<$article{upload_file}>

没有做你认为它正在做的事情。菱形运算符 (<>) 用于代表 Perl 的 readline 函数，但它还有第二个含义，它与 Perl 的 glob 函数做同样的事情。而在 Perl 的解析规则中，<$hash{key}> 总是被视为glob。

perldoc -f perlop 解释：

如果尖括号中的内容既不是文件句柄，也不是包含文件句柄名称、typeglob 或 typeglob 引用的简单标量变量，则将其解释为要通配的文件名模式，以及文件名列表或下一个文件名根据上下文返回列表中的。这种区别仅由句法基础决定。这意味着 始终是间接句柄的 readline()，但 始终是 glob()。这是因为 $x 是一个简单的标量变量，但 $hash{key} 不是——它是一个哈希元素。甚至 （注意多余的空格）也被视为 glob("$x")，而不是 readline($x)。

至少有两种解决方法：

1. 使用明确的readline 调用：

   while (readline($article{upload_file}))
   

2. 将文件句柄分配给一个简单的标量

   my $upload_fh = $article{upload_file};
   ...
   while (<$upload_fh>)