如何使用perl把图片存储到数据库中

redwyz

UID: 1128
帖子: 1
积分: 2
在线时间: 10 分钟

1^# redwyz 发表于 2008-01-28 15:39

如何使用perl把图片存储到数据库中

如何把图片文件转换成二进制存入数据库

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

2^# apile 发表于 2008-01-28 15:47

用一个变量储存那张图档内容..
然後用
$sql = "insert into table (picture) values (?)";
$sth->execute("$picture");
要注意的是
picture的type要是Blob之类的type

redwyz

UID: 1128
帖子: 1
积分: 2
在线时间: 10 分钟

3^# redwyz 发表于 2008-01-28 16:23

open FILE,"<$filename";
my $pic = <FILE>;
close FILE;
#在Tk中
$widget->Photo(-data=>$pic,-format=>'gif');

尝试了一下,好像不行

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

4^# apile 发表于 2008-01-28 16:36

请开启binmode

orangetouch

UID: 41428
帖子: 181
积分: 416
在线时间: 1 天 20 小时

5^# orangetouch 发表于 2008-01-28 17:32

read $buf, $f, -s $filename

redwyz

UID: 1128
帖子: 1
积分: 2
在线时间: 10 分钟

6^# redwyz 发表于 2008-01-28 17:34

thx, 追加问一下,如何开启啊?

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

7^# hitsubunnu 发表于 2008-01-28 17:51

binmode(FILE);

redwyz

UID: 1128
帖子: 1
积分: 2
在线时间: 10 分钟

8^# redwyz 发表于 2008-01-28 18:57

代码如下, 测试失败

#!/usr/bin/perl

use Tk;

my $mw = MainWindow->new();

my $file = "D:\\xxx\\xxx.gif";

my $x;
open FILE,"<$file";
binmode FILE;
$x = <FILE>;
close FILE;

my $pic = $mw->Photo(-data=>$x);

$mw->Label(-image=>$pic)->pack;

MainLoop;

错误信息如下:

This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

9^# apile 发表于 2008-01-29 08:21

QUOTE:

原帖由 redwyz 于 2008-1-28 18:57 发表
代码如下, 测试失败

#!/usr/bin/perl

use Tk;

my $mw = MainWindow->new();

my $file = "D:\\xxx\\xxx.gif";

my $x;
open FILE,"

你也可以用楼上提到的用read..或再多加一行 $/ = '';
测试过..okay...ab.JPG与abc.jpg一样大...

[Copy to clipboard] [ - ]

CODE:

open(FF,"/www/pams-www/images/ab.JPG");
binmode(FF);
$/ = ''; #---注意这里.....要把换行字符换成空的..因为<>是以 $/ 为一行的判断依据..
$abc = <FF>;
close(FF);
open(GG,">abc.jpg");
print GG $abc;
close(GG);