perl利用内存使用sql语句
大家好！最近又有了一些模块用法的心得，那就是利用模块使你的内存变成一个虚拟的数据库模式，使你可以在没有数据库的情况下，将txt文件的数据进行 sql语句处理，感觉很新鲜吧，不过这个不用感到惊讶，Perl一直是很完美的，哈哈，那我们就来看看这个神奇吧！
需要安装 模块：
SQl::Library;
DBI
下面是程序(比较文件1和文件2中的关键字段，比如歌曲比歌曲，歌手比歌手，如果相同就输出)：
#!/usr/bin/perl
use SQl::Library;
use DBI;
my $data1='T';
my $data2='R';
my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$table='students';
$format='Tab'; #文件是以制表符分割的
$file='d:/test.txt'; #文件1
$flags = { col_names => 'a,b,c,d,e,f,g,h'}; #文件有几个表字段
$dbh->func( $table, $format, $file, $flags, 'ad_import');
$table1='students1';
$format1='Tab'; #文件是以制表符分割的
$file1='d:/test2.txt' #文件2
flags1 = { col_names => 'a,b,c,d,e,f,g,h,i'}; #文件有几个表字段
$dbh->func( $table1, $format1, $file1, $flags1, 'ad_import');
my $tel_sth=$dbh->prepare("select b.*,a.i from students1 a,students b
where a.f=b.c and a.g=b.d"); #调用sql语句的方式进行查询，在我的数据里面是 歌曲和歌手2个字段进行的查询
$tel_sth->execute; #执行语句
while (my @ref = $tel_sth->fetchrow_array()) {
chomp(@ref);
my $file_data = join "\t", @ref;
print '这些数据是歌曲和歌手相同的'."$file_data\n"
}
这样就可以很轻松的将数据进行整理了，对于有时候无法使用数据库进行处理的时候这是个不错的选择。
但是还是需要涉及到性能问题的，因为这是个模仿数据库在内存上进行的操作，在速度上面是不可能和数据库的相比，而且占用资源比较大，当你的文件很大的时候，可能根本就没有办法去运行了，因此只适合数据量比较小的来运用了，可以看自己的内存和数据等来合理运用了啊，就说到着了。
相关文档：
最后一课 异常处理本章重点：
1、定义PLSQL异常
2、列举不同的异常处理方法
3、捕获非预期的错误
4、描述异常的影响
5、定制异常的返回信息 一、PLSQL异常处理
异常是由ORACLE错误或显式的抛出一个错误产生的。
如何处理：
用一个处理程序来捕获它；
将它传递 ......
NO ACTION
指定如果试图删除/修改某一行，而该行的键被其他表的现有行中的外键所引用，则产生错误并回滚 DELETE/UPDATE语句。
CASCADE、SET NULL 和 SET DEFAULT
允许通过删除或更新键值来影响指定具有外键关系的表，这些外键关系可追溯到在其中进行修改的表。如果为目标表也定义了级联引用操作，那么指定的级联操 ......
3。表内容如下
-----------------------------
ID LogTime
1 2008/10/10 10:00:00
1 2008/10/10 10:03:00
1 2008/10/10 10:09:00
2 � ......
作者 Haidong Ji 翻译 GoodKid
我们当中的大部分人工作在一个单一的 RDBMS 系统中，如 MSSQL, Oracle, or IBM DB2。然而，我们日益感觉到，我们正处于不同的数据库环境当中并且需要解决数据的互用性问题。
尽管主要的 RDBMS 厂商试图去遵循关系数据库模型原理，并且用非常小的差异去实现它们。另外，几乎主要的 ......
--合并重复行
select * from A
union
select * from B
--不合并重复行
select * from A
union all
select * from B
按某个字段排序
--合并重复行
select *
from (
select * from A
union
select * from B) AS T
order by 字段名
--不合并重复行
select *
from (
select * from A
union all
select * ......
