如何上傳使用CGI應用程序的文件

Question

嗨 我正嘗試使用perl cgi-application上傳圖像文件。不知道我在做什麼錯 - 但是一個空的圖像文件（使用正確的名稱）被保存。

---

我的圖片$ = $自我>查詢 - >參數（ '畫面'）;
my $ buffer; my $ bytesread;

open（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 =「多部分/混合」，否則上傳FILESTREAM不會發送。