<div dir="ltr">Файлы через веб, загрузка клиентом. </div><div class="gmail_extra"><br><br><div class="gmail_quote">20 марта 2014 г., 12:10 пользователь Alexander Lourier <span dir="ltr"><<a href="mailto:aml@rulezz.ru" target="_blank">aml@rulezz.ru</a>></span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Зависит от того, что такое $self->res, и как вы хотите отдавать файлы.<div>Если вы формируете email, то Content-type самому письму задаёте multipart/mixed, потом к письму цепляете каждый аттач отдельным part. Если это MIME::Entity, то примерно так:</div>

<div>$self->res->attach(Data => $document, Type => 'application/vnd.ms-excel', Encoding => 'base64');</div><div>$self->res->attach(....);</div><div><br></div></div><div class="gmail_extra">

<br><br><div class="gmail_quote">2014-03-20 8:54 GMT+01:00 Artem Zhuravlev <span dir="ltr"><<a href="mailto:zhuravlev.ua@gmail.com" target="_blank">zhuravlev.ua@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<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 style="white-space:pre-wrap">  </span>local $/ = undef;</div><div><span style="white-space:pre-wrap">        </span>open my $fh, "<", $filename</div><div><span style="white-space:pre-wrap">         </span>or die "could not open $filename: $!";</div>


<div><span style="white-space:pre-wrap">  </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><span><font color="#888888"><div><br></div>-- <br><div dir="ltr">Best regards,<br>
<div>Artem V. Zhuravlev</div></div>

</font></span></div>
<br></div></div><span class="HOEnZb"><font color="#888888">--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></font></span></blockquote></div><br></div>
<br>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div dir="ltr">Best regards,<br><div>Artem V. Zhuravlev</div></div>
</div>