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

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

请指导我有什么问题.此外,如果文件被上传,那么它在应用程序的公用文件夹或其他地方.

提前致谢.

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.');
}

解决方法

(首先,您需要一些HTML表单,方法=“post”和enctype =“multipart / form-data”,输入type =“file”,name =“upload”,只是为了确保)

如果没有错误,$fileuploaded将是一个Mojo :: Upload.然后,您可以使用$fileuploaded-> move_to(‘path / file.ext’)检查其大小,标题,您可以诽谤它或移动它.

取自strange example.

原文地址：https://www.jb51.cc/Perl/171599.html