perl - Catalyst を使用してファイルをアップロードするにはどうすればよいですか?

Question

写真を保存およびカタログ化するための内部 Web ベースのアプリケーションに取り組んでいます。これらのファイルを取得してサーバーに保存するにはどうすればよいですか?

注: ファイルをデータベースではなく、ファイル システムに保存したいと考えています。HTTP ファイルのアップロードを処理するにはどうすればよいですか? に
似ています。

Answer 1

HTML フォームでおなじみのアップロード INPUT から開始し、HTML フォーム タグにパラメータがあることを確認します。enctype="multipart/form-data"

Catalyst::Requestオブジェクト ( $c->request) は、ファイルにアクセスして操作するための 2 つの方法を提供します。

各ファイル アップロード フィールドは、Catalyst::Request::Uploadオブジェクトとしてインスタンス化されます。

$c->request->uploadUpload オブジェクトをスカラーまたはリスト形式で返します。 $c->request->uploadsUpload オブジェクトのハッシュへの参照を返します。

Upload オブジェクトは、ファイルを保存およびコピーするためのいくつかの方法を提供します。

上でリンクした man ページをチェックしてください。