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

有人能给我一个Perl示例，说明如何将图像文件加载到SQLite中的blob中吗？

嗯。。。我不建议将图像存储在任何数据库中（我更喜欢将图像存储在文件系统中，并将图像的路径存储在数据库中），但是。。。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();

---

…但是文件系统是一个数据库：）…而且不容易缓存。我知道

cat foo.jpg

不是将文件读入内存的最佳习惯用法。。。但是这个例子直接来自SQLite文档。