如何使用CGI APPLICATION上传文件

Question

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

---

my $ picture = $ self-＆gt; query-＆gt; param（'picture'）;
我的$缓冲; 我的$ bytesread;

打开（OUTFILE，“＆gt;＆gt; $ user_dir / profile_picture / $ picture”）;
while（$ bytesread = read（$ picture，$ buffer，1024））{
    print OUTFILE $ buffer;
}

Answer 1

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

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

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

Answer 2

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