|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Vitaliy 2:5020/400 03 Nov 2000 15:17:13 To : All Subject : Re: mySQL/BLOB/Perl -------------------------------------------------------------------------------- "Leonid Subbotin" <Leonid.Subbotin@p1.f16.n5007.z2.fidonet.org> wrote in message news:973190454@p1.f16.n5007.z2.FIDOnet.ftn... > Hi Vitaliy! > mysql> create table a(a blob); > mysql> quit > > open A, "< /home/my.gif"; > $a=join "",<A>; > close A; > > my $sth=$dbh->prepare("insert into a values(?)"); > $sth->execute($a); > $gif=$dbh->selectrow_array("select a from a"); > > open B, ">sql.gif"; > print B $gif; > close B; > > для winды просто раставь binmode на хендлы файлов. Спасибо за ответ! Я тоже дашел до этого, но и это не помогло. Путем мозгового штурма :) было выяснено, что проблемы мне создал MySqlFront manager - программка такая есть. Я через нее пару раз переопределял поля в базе и она видать попортила ее. После hand made создания новой базы все заработало. Правда до конца не понятно (времени нет проверить) что дает в моем случае $a=join "",<A>; Виталий --- ifmail v.2.15dev5 * Origin: Golden Telecom (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/8990b4467ef8.html, оценка из 5, голосов 10
|