请教一个perl连接数据库的问题请高手给看看！！

oraclelangzi

我是这样写的 但是怎么也不返回我要的结果的。

#!/usr/local/bin/perl -w

use strict ;
use Cwd ;
use Net::FTP ;
use DBI ;
use Env ;

my ($Dsn) = "DBI:Oracle:npc" ;
my ($User) = "nrm" ;
my ($Passwd) = "nrm" ;
my ($Sql) = q{select * from  tab} ;
my  $sth;
my  $Dbh;
$Dbh = DBI->;connect( $Dsn , $User , $Passwd , {RaiseError=>;1,AutoCommit=>;0} ) ;

if( !defined($Dbh) ){
        print $DBI::errstr ;
        exit ;
}

$sth=$Dbh->;prepare($Sql) ;

open (outFH,">;/tmp/log.txt")||die "can't open file:$!\n";

$sth=$Dbh->;do($Sql)

print  outFH  $sth;

close(outFH);

$Dbh->;disconnect ;


他却给我返回了：
more log.txt：
……………………………………………………
0E0

兰花仙子

原帖由 "oraclelangzi" 发表：
我是这样写的 但是怎么也不返回我要的结果的。

#!/usr/local/bin/perl -w

use strict ;
use Cwd ;
use Net::FTP ;
use DBI ;
use Env ;

my ($Dsn) = "DBI:Oracle:npc" ;
my ($User) = "nrm" ;
my ($P..........

1. #$sth=$Dbh->;do($Sql)
   
2. $sth->;execute;
   
3. while (my $ref=$sth->;fetchrow_arrayref)
   
4. {
   
5.     print outFH @$ref,"\n";
   
6. }

复制代码

oraclelangzi

我是想把查询到的结果 写的 log.txt  文件里。

请高手给看看！！

frankwen

我来给你整理一下2楼的和你的
open (outFH,">;/tmp/log.txt"||die "can't open file!\n";
$sth->;execute;
while (my $ref=$sth->;fetchrow_arrayref)
{
   print outFH @$ref,"\n"; #这就是把查出来的结果写到文件里。
}

close(outFH);

$Dbh->;disconnect ;

这下明白了吧？

oraclelangzi

谢谢 楼主！！

问题搞定！！