<div dir="ltr"><br><br>Добрый день. <br><br>Столкнулся с проблемой рендеринга xls файлов. <br><br><div>my $self = shift;</div><div>my $dir = "/tmp/writeexcel/";<br></div><div>my $template = "application";</div>
<div>my $suffix = ".xls";</div><div><br></div><div>my $filename = $dir . $template . $suffix;</div><div># Create a new workbook called simple.xls and add a worksheet</div><div>my $workbook;</div><div>$workbook  = Spreadsheet::WriteExcel->new($filename) or die "Problems creating new Excel file: $!" unless defined $workbook;</div>
<div>my $worksheet = $workbook->add_worksheet("Заявка");</div><div>... формируем xls файл ... </div><div>$workbook->close() or die "Error closing file: $!";</div><div><br></div><div>my $document = do {</div>
<div><span class="" style="white-space:pre">    </span>local $/ = undef;</div><div><span class="" style="white-space:pre">  </span>open my $fh, "<", $filename</div><div><span class="" style="white-space:pre">           </span>or die "could not open $filename: $!";</div>
<div><span class="" style="white-space:pre">    </span><$fh>;</div><div>};</div><div><br></div><div>$self->res->headers->content_disposition("attachment; filename='file.xls';");<br></div><div>
$self->render(data => $document);</div><div><br></div><div>Тут все хорошо.</div><div><br></div><div>Не знаю как быть в случае если нужно отдать сразу несколько файлов. <br><br>Пните куда смотреть. Думал над тем что архивировать файлы и передать архив.</div>
<div><br></div><div>Спасибо.</div><div><br></div><div>P.S.  Суть не в самом решении, конечно не буду против, а в том куда копать.</div><div><br></div>-- <br><div dir="ltr">Best regards,<br><div>Artem V. Zhuravlev</div></div>

</div>