sybperl-l Archive

From: Richard Ruth <rruth at studio dot disney dot com>
Subject: Can Not Retrieve Image Greater Than 4k
Date: Feb 12 1996 6:14PM

I have a table that has an id column (int) and an image (image).  When I use the following perl script  
to retrieve the image and place it in a file, I only receive the first 4096 bytes (assuming that the  
image is longer than 4k).

Any suggestions on how to retrieve the Entire image would be appreciated.

I am using Perl 5.001m and Sybperl 2.0 compiled with sybase lib 4.6.


$F->dbcmd("select doc_image from document_image where doc_sid = $doc_sid");
$F->dbsqlexec;
$F->dbresults;
@data = $F->dbnextrow;
$F->dbcanquery;

open(OUT, ">test.pdf") || die "Can't open test.pdf";
print OUT $data[0];
close(OUT);


---
Richard
rruth@studio.disney.com
    (NeXT-Mail welcome)