perl - CGIアプリケーションを使用してファイルをアップロードするにはどうすればよいですか

Question

こんにちは私はperlcgi-applicationを使用して画像ファイルをアップロードしようとしています。何が間違っているのかわかりませんが、空の画像ファイル（正しい名前）が保存されます。

---

私の$picture= $ self-> query-> param（'picture'）;
私の$buffer; 私の$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='multipart/mixed' を指定する必要があることを忘れないでください。そうしないと、アップロード ファイルストリームが送信されません。