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

Question

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

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();