VPF::хранение бинарных данных в mysql

burakov

Дата 4.12.2013, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 28.7.2006

Репутация: нет
Всего: нет

Добрый день,

необходимо в Mysql (поле longblob) вставить бинарные данные.
строку обработанную gzip

для создания строки использовал модули
use IO::Compress::Gzip qw(gzip $GzipError);
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);

при вставке
обработал
$dhb->quote ($gzip_str);

но при insert в поле
данные обрезаются.
почему не пойму.

может кто поделится работающим примером ?

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

Bulat

Дата 4.12.2013, 11:50 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: нет
Всего: 57

Код


#!/usr/bin/perl

use strict;
use DBI;

my $WebHost = ****;
my $WebDatabase = ****;
my $WebPort = ****;
my $WebUsername = ****;
my $WebPasswd = ****;

my $web = DBI -> connect(
  "dbi:mysql:database=$WebDatabase;host=$WebHost;port=$WebPort",
  $WebUsername,
  $WebPasswd,
  {
    AutoCommit => 1,
    RaiseError => 1
  }
) || die $!;
$web -> do("SET NAMES 'utf8'");

my $sth = $web -> prepare("INSERT INTO test(lnbl) VALUES(?)");
$sth -> execute(chr(18).chr(3).chr(32));

Код


CREATE TABLE `test` (
  `lnbl` longblob
) ENGINE=InnoDB DEFAULT CHARSET=utf8

в простейшем примере у меня вроде бы все работает и вставляется.

Цитата(burakov @ 4.12.2013, 11:33

)

но при insert в поле
данные обрезаются.

Каким образом обрезаются? Наполовину, последние 5 символов или первые 20 байтов?? Мож уточнишь, что конкретнее под этим подразумевается??

--------------------

менеджер по кодеврайтингу smile

burakov

Дата 4.12.2013, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 28.7.2006

Репутация: нет
Всего: нет

данные обрезаются произвольно с конца. (каждый раз разное количество --- строк много -- так вот каждая строка получается произвольно обрезана с конца и вставлена)

то есть проходят в базу только первый кусочек ( с начала)., короткий кусочек, очень небольшой.

решил вопрос через дополнительную шифрацию ZIP контента
base64

а так по простому ... в поле не лезет.

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

tishaishii

Дата 18.1.2014, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: нет
Всего: 8

Если longblob, то должно влезать.

DEER

Дата 19.1.2014, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 2
Всего: 13

http://forum.vingrad.ru/forum/topic-71481.html

почитай, может поможет

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »