perl - 如何使用 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();