Próbowałem Mojolicious ramy sieci w oparciu o Perl. I staram się opracować pełną aplikację zamiast Lite. Problem, który napotykam, polega na tym, że próbuję przesłać pliki na serwer, ale poniższy kod nie działa.Jak przesłać plik za pomocą Mojolicious?
Proszę wskazać mi, co jest z nim nie tak. Ponadto, jeśli plik zostanie przesłany, to jest on w folderze publicznym aplikacji lub w innym miejscu.
Z góry dziękuję.
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.');
}
widzę, że w dokumentacji Mojolicious :: Lite wywołanie '$ samo-> req-> Dodaj()' jest owinięty w 'if()', co oznacza, że jego wartość zwracana jest sprawdzana przed założeniem, że nastąpiło przesłanie. Jest to równoważne ze sprawdzeniem wartości zwracanej przez open, tak przypuszczam. – DavidO