Я пробовал Mojolicious web framework на основе perl. И я пытаюсь разработать полное приложение вместо 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.');
}