不知道大家是否遇到这样的要求：
将成千上万的数据，导出为一个或多个txt格式的文件。
本文为大家介绍如何使用perl将oracle中的数据导出成txt，供大家学习参考。
需要用到的模块：
DBI；
例子：
#!/usr/bin/perl
use DBI;
$dbname="数据库服务名称";
$user="用户";
$passwd="密码";
open IN,">目的文件.txt"or die "$!";
my $dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect to
database ". DBI-errstr;
my $sth = $dbh->prepare("select * from wl_cp_name"); #用sql语句写出你想要的数据
$sth->execute();
while (my @ref = $sth->fetchrow_array()){
chomp (@ref);
my $file_data = join "t", @ref; #以制表符来分割最后导出来的数据
print IN $file_data."n" #导入目的文件
}
print "已经跑完了n";
$sth->finish();
$dbh->disconnect();
close IN;
小结：很简单吧，给一个接口以后，perl就可以尽情的抓取数据了。