Perl 在 SQLite 中处理图像

sqlite> CREATE TABLE Images(Id INTEGER PRIMARY KEY, Data BLOB);

#!/usr/bin/perl

use strict;
use DBI;

my dbh = DBI->connect(             "dbi:SQLite:dbname=test.db",                            { RaiseError => 1 }
) or dieDBI::errstr;

open IMAGE, "mushrooms.jpg" or die !;

my (image, buff);
while(read IMAGE,buff, 1024) {
    image .=buff;
}

my stm =dbh->prepare("INSERT INTO Images(Data) VALUES (?)");
stm->bind_param(1,image, DBI::SQL_BLOB);
stm->execute();

close(IMAGE);stm->finish();
$dbh->disconnect();

open IMAGE, "mushrooms.jpg" or die $!;

my (image,buff);
while(read IMAGE, buff, 1024) {image .= $buff;
}

my sth =dbh->prepare("INSERT INTO Images(Data) VALUES (?)");
sth->bind_param(1,image, DBI::SQL_BLOB);
$sth->execute();

close(IMAGE);
sth->finish();dbh->disconnect();

#!/usr/bin/perl

use strict;
use DBI;

my dbh = DBI->connect(             "dbi:SQLite:dbname=test.db",                       { RaiseError => 1 }
) or dieDBI::errstr;

my stm =dbh->prepare("SELECT Data FROM Images WHERE Id=1");
stm->execute();
myimage = stm->fetch();

print "Image:image";

open IMAGE, ">mushrooms2.jpg" or die !;
print IMAGE @image;
close(IMAGE);

stm->finish();dbh->disconnect();

my sth =dbh->prepare("SELECT Data FROM Images WHERE Id=1");
sth->execute();
myimage = $sth->fetch();

open IMAGE, ">mushrooms2.jpg" or die !;
print IMAGE @image;
close(IMAGE);