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

Question

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

---

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

open (OUTFILE, ">>$user_dir/profile_picture/$picture");
while ($bytesread = read($picture, $buffer, 1024)) {
打印 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'，否则上传文件流不会被发送。