Wie kann ich eine Image-Datei in einem Blob in SQLite mit Perl laden?

Question

Könnte jemand mir bitte ein Perl-Beispiel geben, wie man eine Image-Datei in einen Blob in SQLite lädt?

Answer 1

Nun ... Ich würde nicht empfehlen, Bilder in einer Datenbank zu speichern (ich bevorzuge Bilder im Dateisystem und die Pfade zum Bild in der Datenbank), aber ... dieses Szenario ist in der Dokumentation für DBD richtig :: 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();