ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anatolij Kupriyanov                  2:5050/69.1    05 Nov 2000  23:37:21
 To : Vitaliy
 Subject : mySQL/BLOB/Perl
 -------------------------------------------------------------------------------- 
 

 
  Я совершенно случайно заметил, что в Четверг Hоябрь 02 2000 13:33, Vitaliy
 писал All:
 
  V> # открываем файл для чтения
  V> open (GIF, "c:\\www\\2.gif");
  V> @arr=<GIF>;
  V> close(GIF);
  V> $gifraw="@arr";
  V> $gifvalue = $dbh->quote($gifraw);
 
  V> $sth = $dbh->prepare("UPDATE $table SET image=$gifvalue WHERE id = 1");
  V> if (!$sth) {
  V>   die "Can't prepare SQL statement " . $dbh->errstr . "\n";
  V> }
 
 $sth=$dbh->prepare("UPDATE $table SET image=? WHERE id = 1") || die
 "$dbh->errstr\n";
 
  V> if (!$sth->execute) {
  V>   die "Can't execute SQL statement " . $sth->errstr . "\n";
  V> }
 $sth->execute($gifraw) || die "$sth->errstr\n";
 
  V> $dbh->disconnect;
  V> -+------------------------------8<--------------------------------
 
  V> Hо почему-то в БД попадает только первые 220 byte (из 30кБ .gif)
  V> Обьясните, что я делаю неправильно или подскажите
  V> направление поисков.
  V> Доки к mySQL все прочитал - там про blob - кот наплакал :(
  V> как в прочем в доках по DBI
 
 Короче почитай про placeholders
 
                 C уважением, Anatolij Kupriyanov.
 [МФ УдГУ] [(Microsoft!=SUXX)&&(LINUX!=RULEZ)] [Two Beer or not to be]
   np: tear it up
 
 ... Куплю смирительную рубашку р.44, веселенькой расцветки...
 --- ifmail v.2.14
  * Origin: kan@rcd.ru (2:5050/69.1)
 
 

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