向数据库中增加一些魔术覆盖

UNIX 命令 file根据文件的内容确认一个文件类型，而不是使用文件扩展名。例如，每个 GIF 文件都以字符 GIF开始，每个 JPEG 文件都以big-endian序的值 oxffd8 开始。

file命令要查询一个 ASCII 文本文件，该文件一般位于 /etc/magic 中。你可以在一台 UNIX 机器的 man 页查看 magic 来浏览其格式。在 Apache Web 服务器上也有类似的文件。它一般用来确认自己不知道的扩展名的文件，然后返回正确的 MIME 类型。Apache 的版本很简单，其处理范围只包含一些很可能出现在 Web 服务器中的文件。

数据库可以使用一个相似的技术来确定一个 BLOB 列的 MIME 类型。大多数据库应用程序在存储数据的时候还会存储某种类型的标识。然而，可能对于某些人来说不能正确地标识数据。因此，通过直接分析数据来检查 BLOB 值的 magic 值然后返回一个 MIME 类型和解码信息将会很有用。

将magic安装到数据库

安装 magic 的过程使用一个 Perl 脚本产生一种可以使用 SQL*Loader 装载到数据库的标准化格式。数据然后由一个 PL/SQL 函数来扫描，该函数试图确定 BLOB 的数据。下面是建立数据的步骤，以及一个例子：

第一步：创建一个 Perl 脚本将 magic 转成一个 SQL*Loader 数据文件：

#!/usr/local/bin/perl

# ---

# scan the \"magic\" file for file identification rules

$filename = ($#ARGV>=0) ? $ARGV[0] : \'magic\';

open(FILE,\"$filename\") || die \"Couldn\'t open file \'$filename\'\";

$i = 0;

while (FILE>)

{

next if /^s*#/;　　# skip comments

next if /^s*$/;　　# skip blank lines

s/[rn]*//g;　　　 # strip trailing cr/lf

# replace octal escape codes

s/([])/pack(\'C\',oct())/eg;

# split on spaces, except for \" \"

my ($offset,$dt,$cnt,$mime,$encoding) = split(/(?!)s+/);

$cont = ($offset =~ /^>/) ? \'Y\' : undef;

$offset = substr($offset,1) if $cont;

if ($dteq \'string\')

{

# generate a HEXTORAW version of the string

$data = join(\'\',map(sprintf(\'%02X\',$_),unpack(\'C*\',$cnt)));

}

else

{

# handle special number formats

if ($cnt =~ /^0x/) { $cnt = hex($cnt); }　　# hex

elsif ($cnt =~ /^0/) { $cnt = oct($cnt); }　# octal

warn \"unknown number: \'$cnt\'\" unless $cnt =~ /^([]|[][]*)$/;

if ($dteq \'belong\') {

$data = sprintf(\'%02X\' x 4,unpack(\'C4\',pack(\'N\',$cnt)));

} elsif ($dteq \'lelong\') {

$data = sprintf(\'%02X\' x 4,unpack(\'C4\',pack(\'V\',$cnt)));

} elsif ($dteq \'beshort\' || $dteq \'short\') {

$data = sprintf(\'%02X\' x 2,unpack(\'C2\',pack(\'n\',$cnt)));

} elsif ($dteq \'leshort\') {

$data = sprintf(\'%02X\' x 2,unpack(\'C2\',pack(\'v\',$cnt)));

} elsif ($dteq \'byte\') {

$data = sprintf(\'%02X\',$cnt);

} else {

warn \"data type \'$dt\' not implemented\";

}

}

$i++;

print join(\',\',$i,$cont,$offset,$data,$mime,$encoding),\"n\";

}

close(FILE);

$ perl magicdata.pl $ORACLE_HOME/Apache/conf/magic > t

第二步：在 SQL*Plus 中使用下面的 SQL 脚本创建表来保存这个数据：

create table magicdata

(

line　　　　integer,

cont　　　　char(1),

offset　　　integer,

data　　　　raw(24),

mime　　　　varchar2(24),

encoding　　varchar2(10)

);

第三步：使用 SQL*Loader 将前面产生的数据装载到数据库中：

load data

truncate

into table magicdata

确定是否在关键词前加上区域名称。此外 fields terminated by \',\' optionally enclosed by \'\"\'

trailing nullcols

(

line,

cont,

offset,

data,

mime,

encoding

)

$ sqlldr user=scott/tiger control=l data=t

下面是一些测试数据，只有一个 BLOB 列的一个简单的表。

drop table magictest;

create table magictest (myblob blob);

第四步：使用 SQL*Loader 从文件装载三个图像到这个表：

load data

infile *

into table magictest

fields terminated by \',\'

(

fname filler,

\"MYBLOB\" lobfile(fname) terminated by eof

)

begindata

p

f

g

$sqlldruserid=scott/tiger control=l

下面是扫描 magic 数据表和 BLOB 以确定文件 MIME 类型的 PL/SQL 函数：

create or replace function magic(lob_loc blob) return varchar2

is

continued boolean := false;

bdata raw(100);

begin

for rec in (select * from magicdata order by line) loop

if nt = \'Y\' then

if continued then

bdata := dbms_bstr

(

lob_loc,

utl_ngth(ta),

fset+1

);

if utl_pare(bdata,ta) = 0 then

return me;

end if;

end if;

else

bdata := dbms_bstr

(

lob_loc,

utl_ngth(ta),

fset+1

);

dbms_output.put_line(bdata||\' => \'||ta);

if utl_pare(bdata,ta) = 0 then

if me is null then

continued := true;

else

return me;

end if;

end if;

end if;

end loop;

return null;

end magic;

/

show errors;

现在为了显示它确实可以工作，我运行下面的 SQL 语句：

Select magic(myblob) from testdata;

得到的输出是：

MAGIC(MYBLOB)

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

image/bmp

image/gif

image/jpeg 查看本文来源

地奥氨贝
南昌白癜风医院哪好
南京妇科治疗哪家好