perl - 如何使用 CGI 应用程序上传文件

Question

您好我正在尝试使用 perl cgi-application 上传图像文件。不知道我做错了什么 - 但一个空的图像文件（具有正确的名称）被保存。

---

我的 $picture = $self->query->param('picture') ;
我的$缓冲区；我的 $bytesread;

打开 (OUTFILE, ">>$user_dir/profile_picture/$picture");
while ($bytesread = read($picture, $buffer, 1024)) {
print OUTFILE $buffer;
}

Answer 1

阅读CGI.pm文档的“创建文件上传字段”部分。在那里你会看到上传方法将返回一个文件句柄。

    my $fh = $self->query->upload('picture');

    my $buffer; my $bytesread;
    while ($bytesread = read($fh, $buffer, 1024)) {
      ...
     }

Answer 2

不要忘记你的 HTML 表单元素也需要指定 enctype='multipart/mixed'，否则上传文件流不会被发送。