Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Binary File Load error?

by chargrill (Parson)
on Oct 07, 2006 at 02:34 UTC ( #576783=note: print w/ replies, xml ) Need Help??


in reply to Binary File Load error?

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($,,$;,$*,$/)


Comment on Re: Binary File Load error?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://576783]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (9)
As of 2014-11-21 00:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (103 votes), past polls