如何使用CGI APPLICATION上传文件

时间:2010-11-15 19:03:49

标签: perl file-upload cgi-application

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


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

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

2 个答案:

答案 0 :(得分:3)

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

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

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

答案 1 :(得分:0)

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