Здравствуйте!
Не подскажете как можно обойти эту проблему?
Суть проблемы. В ОС FreeBSD есть скритп кот. читает из базы данных поле в кот. находиться картинка и сохраняет эту картинку в файл сам скрипт
#!/usr/local/bin/perl
use DBI;
$dbh=DBI->connect('DBI:Sybase:server=192.168.200.99:1433;database=DATABASE1','user','pass');
$strSQL="select field_bmp from table";
#$dbh->{LongReadLen}=3145728;
$sth=$dbh->prepare($strSQL); $sth->execute(); $count=1;
$sth->bind_col(1,\$Data);
while (@data=$sth->fetchrow_array()) {
open (NF, ">$count.bmp");
binmode NF;
print NF $Data;
close (NF);
$count=$count+1;
}
Так вот этот скрипт почему то сохраняет файл 1.bmp.... в текстовом формате, а не в двоичном. Не подскажете что может быть? В windows все нормально работает сохраняет файл в нормальном формате а в FreeBSD не хочет.
Да и еще когда раскоментирую эту строчку $dbh->{LongReadLen}=3145728; Компилятор ругаеться "Setting of CS_OPT_TEXTSIZE failed ..."
FreeBSD 5.4 DBI + DBD_Sybase, и еще конект происходит с помощью FreeTDS
Буду очень признателен за ответ.
Спасибо.