|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Leonid Subbotin 2:5007/16.1 03 Nov 2000 02:39:33
To : Vitaliy
Subject : mySQL/BLOB/Perl
--------------------------------------------------------------------------------
V> $sth = $dbh->prepare("UPDATE $table SET image=$gifvalue WHERE id =
V> 1");
V> Hо почему-то в БД попадает только первые 220 byte (из 30кБ .gif)
V> Обьясните, что я делаю неправильно или подскажите
V> направление поисков.
V> Доки к mySQL все прочитал - там про blob - кот наплакал :(
V> как в прочем в доках по DBI
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 на хендлы файлов.
Всегда с вами Sln !
--- GoldED+/W32 1.1.4
* Origin: Sln Station (2:5007/16.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
