<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<style>
<!--
@font-face
{font-family:Helvetica}
@font-face
{font-family:Helvetica}
@font-face
{font-family:Calibri}
@font-face
{font-family:Tahoma}
@font-face
{font-family:Consolas}
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif"}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline}
pre
{margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New"}
span.HTMLPreformattedChar
{font-family:"Consolas","serif"}
span.EmailStyle19
{font-family:"Calibri","sans-serif";
color:#1F497D}
.MsoChpDefault
{font-size:10.0pt}
@page WordSection1
{margin:72.0pt 72.0pt 72.0pt 72.0pt}
div.WordSection1
{}
-->
</style>
</head>
<body lang="EN-GB" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D">I’ve been using this for while….</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> </span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> # check for ok status</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> if($result->ok)</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> {
</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> </span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> # output header</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> $c->response->content_type('application/vnd.ms-excel');</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> $c->response->content_length(length($xls));
</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> $c->response->header(Content_Disposition => 'attachment;filename=NBCS_Export.csv');</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D">
</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> # create an IO::File for Catalyst</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> use IO::File;</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> my $iof = IO::File->new;</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D">
</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> # open XLS</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> $iof->open(\$xls, "r");
</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> </span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> # output XLS data
</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> $c->response->body($iof);</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D">
</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> # close file</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> undef $iof;</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> }</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> </span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D">It resolves the out of memory issue if you try to print direct to $c->response->body without putting the content in an IO::File object.</span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> </span></p>
<p class="MsoNormal"><span style="font-size:11.0pt; font-family:"Calibri","sans-serif"; color:#1F497D"> </span></p>
<div>
<div style="border:none; border-top:solid #B5C4DF 1.0pt; padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt; font-family:"Tahoma","sans-serif"">From:</span></b><span lang="EN-US" style="font-size:10.0pt; font-family:"Tahoma","sans-serif""> John Napiorkowski [mailto:jjn1056@yahoo.com]
<br>
<b>Sent:</b> 26 November 2013 01:54<br>
<b>To:</b> The elegant MVC web framework<br>
<b>Subject:</b> Re: [Catalyst] Setting file handle as the response body generates warnings.</span></p>
</div>
</div>
<p class="MsoNormal"> </p>
<div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black">We should probably document what it means by $c->response->body can accept a file handle. Like plack specifies the interface it must deal with. Anyone
up to that?</span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black">This FH in body thing is something I've been thinking about a lot lately, in regards to when Catalyst is running under an event loop for example, should Catalyst stream the
Filehandle a non blocking manner. But it would be great to document this. Also, I am thinking setting the default size when its missing could really belong to middleware. Plack has some default middleware that does this:</span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"><a href="https://metacpan.org/source/MIYAGAWA/Plack-1.0030/lib/Plack/Middleware/ContentLength.pm">https://metacpan.org/source/MIYAGAWA/Plack-1.0030/lib/Plack/Middleware/ContentLength.pm</a></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black">the means it works looks like this</span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"><a href="https://metacpan.org/source/MIYAGAWA/Plack-1.0030/lib/Plack/Util.pm#L68">https://metacpan.org/source/MIYAGAWA/Plack-1.0030/lib/Plack/Util.pm#L68</a></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black">There's a few things in Catalyst.pm that could profitable just use Plack::Middleware counterparts.</span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black">just a thought.</span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Helvetica","sans-serif"; color:black">johnnap</span></p>
</div>
<div>
<p class="MsoNormal" style="margin-bottom:12.0pt; background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
<div>
<div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-size:10.0pt; font-family:"Arial","sans-serif"; color:black">On Thursday, November 21, 2013 9:20 AM, neil.lunn <<a href="mailto:neil@mylunn.id.au">neil@mylunn.id.au</a>> wrote:</span><span style="font-family:"Helvetica","sans-serif"; color:black"></span></p>
</div>
<div>
<div id="yiv5804029528">
<div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black">On 22/11/2013 12:33 AM, Bill Moseley wrote:</span></p>
</div>
<blockquote style="margin-top:5.0pt; margin-bottom:5.0pt">
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
<div>
<p class="MsoNormal" style="margin-bottom:12.0pt; background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black">On Wed, Nov 20, 2013 at 11:32 PM, neil.lunn <<a href="mailto:neil@mylunn.id.au" target="_blank">neil@mylunn.id.au</a>> wrote:</span></p>
<div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black">This approach may work for you is the compressed data is actually in a scalar and not too large. And not too small. YMMV.<br>
<br>
my $z = read_file "product.json.gz";<br>
<br>
my $io = IO::Scalar->new( \$z );<br>
$io->seek( -4, 2 );<br>
$io->read( my $buf, 4);<br>
<br>
my $uncompressed_size = unpack( 'V', $buf );</span></p>
</div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black">This indeed does work in my tests. Thanks for all the help, Neil. I really appreciate the time you spent on this.</span></p>
</div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
</div>
</div>
</div>
</blockquote>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black">No prob. Part of my thing on list reponses is that there is a seed for others to learn from what was discussed.
<br>
I do wonder if there is a sane way to test for an in memory file handle and give a more appropriate warning, but that is for further discussion.</span></p>
<div id="yiv5804029528yqtfd05147">
<p class="MsoNormal" style="margin-bottom:12.0pt; background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<blockquote style="margin-top:5.0pt; margin-bottom:5.0pt">
<div id="yiv5804029528yqtfd05015">
<div>
<div>
<div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
<div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
</div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black">--
<br>
Bill Moseley<br>
<a href="mailto:moseley@hank.org" target="_blank">moseley@hank.org</a> </span></p>
</div>
</div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"><br>
<br>
</span></p>
</div>
<div id="yiv5804029528yqtfd29151">
<pre style="background:white"><span style="color:black">_______________________________________________</span></pre>
<pre style="background:white"><span style="color:black">List: <a href="mailto:Catalyst@lists.scsys.co.uk" target="_blank">Catalyst@lists.scsys.co.uk</a></span></pre>
<pre style="background:white"><span style="color:black">Listinfo: <a href="http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst" target="_blank">http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst</a></span></pre>
<pre style="background:white"><span style="color:black">Searchable archive: <a href="http://www.mail-archive.com/catalyst@lists.scsys.co.uk/" target="_blank">http://www.mail-archive.com/catalyst@lists.scsys.co.uk/</a></span></pre>
<pre style="background:white"><span style="color:black">Dev site: <a href="http://dev.catalyst.perl.org/" target="_blank">http://dev.catalyst.perl.org/</a></span></pre>
</div>
<pre style="background:white"><span style="color:black"> </span></pre>
</blockquote>
<p class="MsoNormal" style="margin-bottom:12.0pt; background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"><br>
<br>
</span></p>
<div class="MsoNormal" align="center" style="text-align:center; background:white">
<span style="font-family:"Helvetica","sans-serif"; color:black">
<hr size="1" width="99%" noshade="" align="center" style="color:#909090">
</span></div>
<table class="MsoNormalTable" border="0" cellspacing="0" cellpadding="0" style="border-collapse:collapse">
<tbody>
<tr>
<td style="padding:0cm 11.25pt 0cm 6.0pt">
<p class="MsoNormal"><a href="http://www.avast.com/" target="_blank"><span style="text-decoration:none"><img border="0" id="_x0000_i1026" src="http://static.avast.com/emails/avast-mail-stamp.png"></span></a></p>
</td>
<td style="padding:.75pt .75pt .75pt .75pt">
<div>
<p class="MsoNormal"><span style="color:#3D4D5A">This email is free from viruses and malware because
<a href="http://www.avast.com/" target="_blank">avast! Antivirus</a> protection is active.
</span></p>
</div>
</td>
</tr>
</tbody>
</table>
<div id="yiv5804029528yqtfd82499">
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
</div>
</div>
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
<div id="yqtfd20002">
<p class="MsoNormal" style="background:white"><span style="font-family:"Helvetica","sans-serif"; color:black">_______________________________________________<br>
List: <a href="mailto:Catalyst@lists.scsys.co.uk">Catalyst@lists.scsys.co.uk</a><br>
Listinfo: <a href="http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst" target="_blank">
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst</a><br>
Searchable archive: <a href="http://www.mail-archive.com/catalyst@lists.scsys.co.uk/" target="_blank">
http://www.mail-archive.com/catalyst@lists.scsys.co.uk/</a><br>
Dev site: <a href="http://dev.catalyst.perl.org/" target="_blank">http://dev.catalyst.perl.org/</a></span></p>
</div>
<p class="MsoNormal" style="margin-bottom:12.0pt; background:white"><span style="font-family:"Helvetica","sans-serif"; color:black"> </span></p>
</div>
</div>
</div>
</div>
</div>
</div>
This Email and any attachments contain confidential information and is intended solely for the individual to whom it is addressed. If this Email has been misdirected, please notify the author as soon as possible. If you are not the intended recipient you must
not disclose, distribute, copy, print or rely on any of the information contained, and all copies must be deleted immediately. Whilst we take reasonable steps to try to identify any software viruses, any attachments to this e-mail may nevertheless contain
viruses, which our anti-virus software has failed to identify. You should therefore carry out your own anti-virus checks before opening any documents. HomeLoan Partnership will not accept any liability for damage caused by computer viruses emanating from any
attachment or other document supplied with this e-mail. HomeLoan Partnership reserves the right to monitor and archive all e-mail communications through its network. No representative or employee of HomeLoan Partnership has the authority to enter into any
contract on behalf of HomeLoan Partnership by email. HomeLoan Partnership is a trading name of H L Partnership Limited, registered in England and Wales with Registration Number 5011722. Registered office: Pharos House, 67 High Street, Worthing, West Sussex,
BN11 1DN. H L Partnership Limited is authorised and regulated by the Financial Conduct Authority.
</body>
</html>