如何保存一个图像文件(JPG和GIF)到数据库中?

file: test_insert_jpg.pl

-------------------------

#! /usr/bin/perl

use DBI;

open(IN,"/imgdir/bird.jpg");

$gfx_file=join('',);

close(IN);

$database="speedy";

$table="archive";

$user="stephen";

$password="none";

$dsn="DBI:mysql:$database";

$dbh=DBI->connect($dsn, $user, $password);

$sql_statement=<<"__EOS__";

insert into $table (id, date, category, caption, content, picture1, picture2,

picture3, picture4, picture5, source, _show) values(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )

__EOS__

# uncomment to debug sql statement

# --------------------------------

#open(SQLLOG,">>sql_log_file");

#print SQLLOG scalar(localtime)."\t$sql_statement\n";

#close(SQLLOG);

$sth=$dbh->prepare($sql_statement);

$sth->execute(NULL,NULL,"car|sports","Porsche Boxster S","German excellence",$gfx_file,NULL,NULL,NULL,NULL,"European Car","Y");

$sth->finish(); $sth=$dbh->prepare("SELECT * FROM $table");

$sth->execute();

while($ref=$sth->fetchrow_hashref()){

print "id = $ref->{'id'}\tcategory = $ref->{'category'}\tcaption = $ref->{'caption'}\n";

}

$numRows=$sth->rows;

$sth->finish();

$dbh->disconnect();

file: serve_gfx.cgi

-----------------------------------------------------

#!/usr/bin/perl

$|=1;

use DBI;

$database="speedy";

$table="archive";

$user="stephen";

$password="none";

$dsn="DBI:mysql:$database";

$dbh=DBI->connect($dsn, $user,$password);

$sth=$dbh->prepare("select * from $table where id=1");

$sth->execute();

$ref=$sth->fetchrow_hashref();

print "content-type: image/jpg\n\n";

print $ref->{'picture1'};

$numRows=$sth->rows;

$sth->finish();

$dbh->disconnect();