Как загрузить несколько файлов с помощью Mojolicious?

Question

Как загрузить несколько файлов с помощью Mojolicious?

Я новичок в Mojolicious, пытаюсь научиться этому. Я пытаюсь загрузить несколько файлов, используя форму, но одновременно загружается только один файл. Любое предложение?

#!perl -w

use Mojolicious::Lite;
use Mojo::Upload;
use v5.14;

get '/' => 'page';
post '/' => sub {
   my $self = shift;
   my @files;
   for my $file ($self->req->upload('files')) {
     my $size = $file->size;
     my $name = $file->filename;

     push @files, "$name ($size)";
     $file->move_to("C:\\Program Files\\Apache Software Foundation\\Apache24\\htdocs\\ProcessingFolder\\".$name);
   }
   $self->render(text => "@files");
} => 'save';

app->start;

__DATA__

@@ page.html.ep
<!DOCTYPE html>
<html>
   <body>
   <form action="<%=/ProcessingFolder/%>" method="POST"
enctype="multipart/form-data">
     <input name="files" type="file" enctype="multipart/form-data" multiple="multiple">
     <button type="submit">Upload</button>
   </form>
   </body>
</html>

6

perl mojolicious

Источник

user3109685 19 фев '15 в 09:37

1 ответ

Решение

Я думаю, что в ответе выше есть небольшая ошибка - переменная ProcessingFolder устарела...

#!perl -w
# install Mojolicious by : sudo -s 'curl -L cpanmin.us | perl - Mojolicious'
# run by : perl mojo-file-upload.pl daemon -m production -l http://*:8083
# point your browser @: http://127.0.0.1/upload-files
#
use Mojolicious::Lite;
use Mojo::Upload;
use v5.14;

get '/' => 'upload-files-page';
get '/upload-files' => 'upload-files-page';
post '/upload-files' => sub {
   my $self = shift;
   my @files;
   for my $file (@{$self->req->uploads('files')}) {
     my $size = $file->size;
     my $name = $file->filename;

     push @files, "$name ($size)";
     $file->move_to("/tmp/".$name);
   }
   $self->render(text => "@files");
} => 'save';

app->start;

__DATA__


@@ upload-files-page.html.ep
<!DOCTYPE html>
<html>
   <body>
   <form action="/upload-files" method="POST"
enctype="multipart/form-data">
     <input name="files" type="file" 
       enctype="multipart/form-data" multiple="multiple">
     <button type="submit">Upload</button>
   </form>
   </body>
</html>

1

Источник

user65706 01 мар '20 в 01:09

Другие вопросы по тегам perl mojolicious

user3109685 19 фев '15 в 11:47 2015-02-19 11:47 · Accepted Answer · 2015-02-19 11:47

Найден ответ. Используемый uploads() вместо upload() который возвращает ссылку на массив.

#!perl -w

use Mojolicious::Lite;
use Mojo::Upload;
use v5.14;

get '/' => 'page';
post '/' => sub {
   my $self = shift;
   my @files;
   for my $file (@{$self->req->uploads('files')}) {
     my $size = $file->size;
     my $name = $file->filename;

     push @files, "$name ($size)";
     $file->move_to("C:\\Program Files\\Apache Software Foundation\\Apache24\\htdocs\\ProcessingFolder\\".$name);
   }
   $self->render(text => "@files");
} => 'save';

app->start;

__DATA__

@@ page.html.ep
<!DOCTYPE html>
<html>
   <body>
   <form action="<%=/ProcessingFolder/%>" method="POST"
enctype="multipart/form-data">
     <input name="files" type="file" enctype="multipart/form-data" multiple="multiple">
     <button type="submit">Upload</button>
   </form>
   </body>
</html>