Comment charger un fichier image dans un blob dans SQLite en utilisant Perl?

Question

Quelqu'un pourrait-il me donner un exemple Perl sur la façon de charger un fichier image dans un blob dans SQLite?

Answer 1

Eh bien ... Je ne recommanderais pas de stocker des images dans une base de données (je préfère stocker des images dans le système de fichiers et les chemins de l'image dans la DB) mais ... ce scénario est exact dans la documentation 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();