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

有人可以给我一个关于如何在SQLite中将图像文件加载到blob中的Perl示例吗？

嗯...我不建议在任何数据库中存储图像(我更喜欢将图像存储在文件系统中以及数据库中图像的路径)但是......这种情况在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();