您好 我正在尝试使用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;
}
答案 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',否则上传文件流不会被发送。