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