perl - 如何使用 Mojolicious 上传文件？

Question

我一直在尝试基于 perl 的 Mojolicious Web 框架。我已经尝试开发一个完整的应用程序而不是 Lite。我面临的问题是我正在尝试将文件上传到服务器，但下面的代码不起作用。

请指导我有什么问题。此外，如果文件被上传，那么它是在应用程序的公共(public)文件夹中还是在其他地方。

提前致谢。

sub posted {
 my $self = shift;
 my $logger = $self->app->log;

 my $filetype = $self->req->param('filetype');
 my $fileuploaded = $self->req->upload('upload');

 $logger->debug("filetype: $filetype");
 $logger->debug("upload: $fileuploaded");

 return $self->render(message => 'File is not available.')
  unless ($fileuploaded);

 return $self->render(message => 'File is too big.', status => 200)
   if $self->req->is_limit_exceeded;

 # Render template "example/posted.html.ep" with message
 $self->render(message => 'Stuff Uploaded in this website.');
}

Answer 1

(首先，您需要一些带有 method="post" 和 enctype="multipart/form-data" 的 HTML 表单，以及带有 input type="file" 的 name="upload" 。只是为了确定。)

如果没有错误，$fileuploaded将是 Mojo::Upload .然后你可以检查它的大小，它的标题，你可以用$fileuploaded->move_to('path/file.ext') slurp 或移动它。 .

取自 strange example .