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

【问题标题】：How can I load an image file into a blob in SQLite using Perl?如何使用 Perl 将图像文件加载到 SQLite 中的 blob 中？
【发布时间】：2010-11-03 02:42:43
【问题描述】：

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

【问题讨论】：

标签： perl image sqlite blob

【解决方案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();

【讨论】：

...但是文件系统是一个数据库:)
...而且不那么容易缓存。
我知道cat foo.jpg 不是将文件读入内存的最佳习语……但该示例直接来自 SQLite 文档。