如何使用Perl将图像文件加载到SQLite中的Blob中？

Question

有人可以给我一个Perl示例，介绍如何在SQLite中将图像文件加载到Blob吗？

Answer 1

Well ... I wouldn't recommend storing images in any database (I prefer to store images in the filesystem and the paths to the image in the db) but ... that scenario is right in the documentation for 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();