On Tuesday 11 November 2003 15:23, Andrew Gaffney wrote:
I have tried stripping the leading "\n", "Content-Type: image/jpeg\r\n", "\r\n" line, "\r\n" after the image data, and the trailing "\r\n" line but the resulting file does not seem to be a valid jpeg image.
This looks promising.
http://www.perldoc.com/perl5.6/lib/MIME/Base64.html
-- Andrew Gaffney
Thanks for the responses Andrew.
It turns out the problem was that I was printing binary JPEG in text mode. I just needed to use binmode() and everything is happy.
open(OUTFILE, "> ./jpegs/$jpeg-num.jpeg"); binmode OUTFILE; print OUTFILE $jpeg; close(OUTFILE);
I'm glad you figured it out.
-- Andrew Gaffney
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
