perl - manejo - ¿Cómo subir archivos usando Mojolicious?

perl manejo de archivos

Question

He estado probando el framework web Mojolicious basado en Perl. Y he intentado desarrollar una aplicación completa en lugar de Lite. El problema que estoy enfrentando es que estoy tratando de subir archivos al servidor, pero el siguiente código no funciona.

Por favor, guíame qué está mal con eso. Además, si el archivo se carga, entonces está en la carpeta pública de la aplicación o en otro lugar.

Gracias por adelantado.

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

(Primero, necesitas algún formulario HTML con method="post" y enctype="multipart/form-data" , y un input type="file" con name="upload" . Solo para estar seguro).

Si no hubiera errores, $fileuploaded sería un Mojo::Upload . Entonces puedes verificar su tamaño, sus encabezados, puedes sorberlo o moverlo, con $fileuploaded->move_to(''path/file.ext'') .

Tomado de un extraño ejemplo .

Answer 2

Puedes usar Mojolicious :: Plugin :: RenderFile

Mojolicious :: Plugin :: RenderFile