perl将oracle数据库的数据导出成txt的简单方式

 当我们面对 数百万数千万行列的数据库表的时候，而你又希望能将数据尽快的导出成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;
OK了，程序就是这么简单，给了一个接口以后，perl就可以尽情的抓取数据了，放心吧，你的老板还没来的及把凳子坐热乎，你就可以把数据给他了，让他就对付这重量级的数据吧。呵