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"

}

 

 

  这样就可以很轻松的将数据进行整理了，对于有时候无法使用数据库进行处理的时候这是个不错的选择。

但是还是需要涉及到性能问题的，因为这是个模仿数据库在内存上进行的操作，在速度上面是不可能和数据库的相比，而且占用资源比较大，当你的文件很大的时候，可能根本就没有办法去运行了，因此只适合数据量比较小的来运用了，可以看自己的内存和数据等来合理运用了啊，就说到着了。