Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL&Sybase) Выборка картинок из MS SQL Server в FreeBSD с помощью Perl / 2 сообщений из 2, страница 1 из 1
16.08.2005, 17:01
    #33218765
AlekseyD
AlekseyD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL&Sybase) Выборка картинок из MS SQL Server в FreeBSD с помощью Perl
Здравствуйте!

Не подскажете как можно обойти эту проблему?

Суть проблемы. В ОС FreeBSD есть скритп кот. читает из базы данных поле в кот. находиться картинка и сохраняет эту картинку в файл сам скрипт

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
#!/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 не хочет .

FreeBSD 5.4 DBI + DBD_Sybase, и еще конект происходит с помощью FreeTDS

Буду очень признателен за ответ.

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2005, 17:59
    #33218990
AlekseyD
AlekseyD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL&Sybase) Выборка картинок из MS SQL Server в FreeBSD с помощью Perl
AlekseyDЗдравствуйте!

Не подскажете как можно обойти эту проблему?

Суть проблемы. В ОС FreeBSD есть скритп кот. читает из базы данных поле в кот. находиться картинка и сохраняет эту картинку в файл сам скрипт

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
#!/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 не хочет .

FreeBSD 5.4 DBI + DBD_Sybase, и еще конект происходит с помощью FreeTDS

Буду очень признателен за ответ.

Спасибо.

Фух все разобрался. Нужно было перевести Sybase в бинарный режим, после строчки $sth=$dbh->prepare($strSQL); Самое главное до execute() написать
Код: plaintext
$dbh->{syb_binary_images}= 1 ;
Вот и все :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL&Sybase) Выборка картинок из MS SQL Server в FreeBSD с помощью Perl / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 469ms
Закрыть
start [/forum/topic.php?fid=23&tablet=1&tid=1477749]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 235ms
total:  469ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]