ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Onishchenko Eugene                   2:5020/400     03 Nov 2000  11:58:28
 To : All
 Subject : Re: Помогите разобраться.
 -------------------------------------------------------------------------------- 
 

 Vitaliy wrote:
 
 > Мне нужно загнать в mySQL gif'ы.
 > Я определил в БД таблицу с полем BLOB.
 > И следующим образом пытаюсь добавить gif:
 >
 > --------------------------------8<--------------------------------
 >
 > # настраиваем соединение с бд
 > [skip]
 >
 > # открываем файл для чтения
 > open (GIF, "c:\\www\\2.gif");
 > @arr=<GIF>;
 > close(GIF);
 > $gifraw="@arr";
 > $gifvalue = $dbh->quote($gifraw);
 >
 > $sth = $dbh->prepare("UPDATE $table SET image=$gifvalue WHERE id = 1");
 > if (!$sth) {
 >   die "Can't prepare SQL statement " . $dbh->errstr . "\n";
 > }
 >
 > if (!$sth->execute) {
 >   die "Can't execute SQL statement " . $sth->errstr . "\n";
 > }
 >
 > $dbh->disconnect;
 > --------------------------------8<--------------------------------
 >
 > Hо почему-то в БД попадает только первые 220 byte (из 30кБ .gif)
 > Обьясните, что я делаю неправильно или подскажите
 > направление поисков.
 > Доки к mySQL все прочитал - там про blob - кот наплакал :(
 > как в прочем в доках по DBI
 >
 > Виталий
 
 У меня все работает. Hо под линухом и я использою следующий код:
 
 open(GIF, $path);
 {
     local $/;
     undef($/);
     $content=<GIF>;
 }
 close(GIF);
 
 $gif=$dbh->quote($content);
 
 $dbh->do("UPDATE $table SET image=$gif WHERE id=$id") or die;
 $dbh->disconnect;
 
 --- ifmail v.2.15dev5
  * Origin: AlphaTS (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Помогите разобраться.   Vitaliy   02 Nov 2000 13:37:33   Re: Помогите разобраться.   Onishchenko Eugene   03 Nov 2000 11:58:28   Разобрался   Vitaliy   03 Nov 2000 15:11:08   Помогите разобраться.   Alexey Germogenov   04 Nov 2000 02:13:00