perl - Perlを使用してSQLiteのブロブに画像ファイルをロードするにはどうすればよいですか?

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