[Moscow.pm] Mojolicious render xls

[Artem Zhuravlev]

Добрый день.

Столкнулся с проблемой рендеринга xls файлов.

my $self = shift;
my $dir = "/tmp/writeexcel/";
my $template = "application";
my $suffix = ".xls";

my $filename = $dir . $template . $suffix;
# Create a new workbook called simple.xls and add a worksheet
my $workbook;
$workbook  = Spreadsheet::WriteExcel->new($filename) or die "Problems
creating new Excel file: $!" unless defined $workbook;
my $worksheet = $workbook->add_worksheet("Заявка");
... формируем xls файл ...
$workbook->close() or die "Error closing file: $!";

my $document = do {
local $/ = undef;
open my $fh, "<", $filename
or die "could not open $filename: $!";
<$fh>;
};

$self->res->headers->content_disposition("attachment;
filename='file.xls';");
$self->render(data => $document);

Тут все хорошо.

Не знаю как быть в случае если нужно отдать сразу несколько файлов.

Пните куда смотреть. Думал над тем что архивировать файлы и передать архив.

Спасибо.

P.S.  Суть не в самом решении, конечно не буду против, а в том куда копать.

-- 
Best regards,
Artem V. Zhuravlev
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20140320/061a97c9/attachment.html>