Levon,
You might try using the binmode function on your filehandle:
open FH, ">$binObjId.pdf";
binmode FH;
print FH, $contents;
close FH;
Steve
On Thu, Jul 24, 2003 at 11:26:52AM -0400, Levon Barker wrote:
> Hello List!
>
> Have a quick question that I am sure someone knows the answer to. I
> switching from handling long raw data in Oracle to only storing a pointer to
> the file on the file system. I am dealing mostly with PDFs.
>
> The process seems/ed pretty easy: select the contents of the longvar column
> into a perl variable and then save it to the file system.
> So I do something like this:
>
> 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.
>
> Any thoughts?
>
> Thanks in advance,
> Levon Barker
>
>
> --
> 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]
