向数据库中增加一些魔术

　　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
　　# --- magicdata.pl
　　
　　# 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/[\r\n]*//g;　　　 # strip trailing cr/lf
　　　　# replace octal escape codes
　　　　s/\$[0-9]{3})/pack('C',oct($1))/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 =~ /^([0-9][1-9][0-9]*)$/;
　　　　　　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 > magicdata.dat
　　
　　第二步：在 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=magicdata.ctl data=magicdata.dat
　　
　　下面是一些测试数据，只有一个 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
　　file.bmp
　　file.gif
　　file.jpg
　　
　　$sqlldruserid=scott/tiger control=magictest.ctl
　　
　　下面是扫描 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 rec.cont = 'Y' then
　　　　　　　　if continued then
　　　　　　　　　　bdata := dbms_lob.substr
　　　　　　　　　　(
　　　　　　　　　　　　lob_loc,
　　　　　　　　　　　　utl_raw.length(rec.data),
　　　　　　　　　　　　rec.offset+1
　　　　　　　　　　);
　　　　　　　　　　if utl_raw.compare(bdata,rec.data) = 0 then
　　　　　　　　　　　　return rec.mime;
　　　　　　　　　　end if;
　　　　　　　　end if;
　　　　　　else
　　　　　　　　bdata := dbms_lob.substr
　　　　　　　　(
　　　　　　　　　　lob_loc,
　　　　　　　　　　utl_raw.length(rec.data),
　　　　　　　　　　rec.offset+1
　　　　　　　　);
　　　　　　　　dbms_output.put_line(bdata' <=> 'rec.data);
　　　　　　　　if utl_raw.compare(bdata,rec.data) = 0 then
　　　　　　　　　　if rec.mime is null then
　　　　　　　　　　　　continued := true;
　　　　　　　　　　else
　　　　　　　　　　　　return rec.mime;
　　　　　　　　　　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