Как я могу загрузить файл изображения в BLOB-объект в SQLite с помощью Perl?

Question

Может кто-нибудь дать мне пример Perl о том, как загрузить файл изображения в BLOB-объект в SQLite?

Answer 1

Хорошо ... Я бы не рекомендовал хранить изображения в любой базе данных (я предпочитаю хранить изображения в файловой системе и пути к изображению в БД), но ... этот сценарий прямо в документации по DBD: : SQLite

use DBI qw(:sql_types);
my $dbh = DBI->connect("dbi:SQLite:dbfile","","");

my $blob = `cat foo.jpg`;
my $sth = $dbh->prepare("INSERT INTO mytable VALUES (1, ?)");
$sth->bind_param(1, $blob, SQL_BLOB);
$sth->execute();