perl利用内存使用sql语句

君子不器 2016年05月04日 编程世界 4185次阅读 查看评论

 

大家好!最近又有了一些模块用法的心得,那就是利用模块使你的内存变成一个虚拟的数据库模式,使你可以在没有数据库的情况下,将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"


}

 

 

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

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

« 上一篇 下一篇 » 君子不器原创文章,转载请注明出处! 标签:perl

相关日志:

博主介绍
乌云蔽月,人迹踪绝,说不出如斯寂寞。
控制面板
您好,欢迎到访网站!
  [查看权限]
站点信息
  • 文章总数:1279
  • 页面总数:2
  • 分类总数:9
  • 标签总数:61
  • 评论总数:331
标签列表
友情链接