madtoperl: it's a pity you didn't google this before you posted, otherwise you might have noticed this livejournal entry from "timwi" a few years ago that had the exact same problem (and nearly the exact same code, and wording, of your question).
It's reproduced here for your convenience:
Timwi (timwi) wrote in perl,
@ 2004-10-21 00:11:00
Continued problems with binary files
Dear hackers again,
thanks for your hints in the previous entry. However, I'm still having
+ problems here.
How do I simply load a file into memory? Again, without corrupting any
+ line endings?
I've tried this:
#!C:\Perl\bin\perl.exe
use strict;
print "Content-Type: image/jpeg\n\n";
local $/ = undef;
open F, 'C:\Temp\temp.jpg';
binmode F;
my $content = <F>;
close F;
print $content;
and this produces a corrupt response. What is the correct way of loadi
+ng a binary file? Thanks for any help in advance.
--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|