> Thanks for the quick response Dan, that solution is correct, > but Steve beat you to the punch. :)
Dang! I'll get you next time Steve, NEXT TIME!!!! ;p > > > -----Original Message----- > > From: Dan Muey [mailto:[EMAIL PROTECTED] > > Sent: Thursday, July 24, 2003 11:35 AM > > To: Levon Barker; [EMAIL PROTECTED] > > Subject: RE: Perl + Oracle + Blobs + PDFs - Dumping to filesystem > > > > > > > while ($sth->fetch()) { > > > open FH, ">$binObjId.pdf"; > > > print FH, $contents; > > > close FH; > > > } > > > > > > That almost works. > > > > > > After this runs on a coulple of files, I try to open one, and the > > > PDF reports that the file is damaged and also none of the > jpgs that > > > were embedded in the PDF show up. Acrobat tells me that there is > > > insufficient data to display the image. > > > > > > So I am guessing that 'print FH, $contents' is a bad way > to get the > > > pdf to the file system. > > > > > > > You need to writre it in binary mode: > > > > open FH ... > > binmode FH; > > print FH ...... > > > > perldoc -f binmode > > > > HTH > > > > DMuey > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
