perl连接oracle，取出radius上网记录问题。。。

折腾了半天，make test时出错，make install反正完成了。 perldoc DBD::Oracle也有文档。
我现在测试下。

失败。。。。

代码如下：

#!/usr/bin/perl -w

#use strict;
use DBI;

my $dbh = DBI->connect("dbi:Oracle:db:ip_db", 'user', 'passwd') or die "$DBI::errstr\n";
my $sth = $dbh -> prepare("select * from ow_idc_current where access_time >to_date ('2008-02-27 00:00:00','yyyy-mm-dd hh24:mi:ss') and access_time <to_date ('2008-03-01 00:00:00','yyyy-mm-dd hh24:mi:ss') and login_name='abc1234567'");
$sth -> execute();
open FILE ,'> /home/gaochong/output.txt';
foreach my $rowref ( $sth -> fetchrow_arrayref) {
        print FILE @$rowref;
}
close FILE;

但执行，出现如下错误：
[root@linux ex]# ./oracle
DBI connect('logdb48:10.0.0.48','idclog',...) failed: ORA-12154: TNS:could not resolve the connect identifier specified (DBD ERROR: OCIServerAttach) at ./oracle line 6
ORA-12154: TNS:could not resolve the connect identifier specified (DBD ERROR: OCIServerAttach)

请问各位哪里错了？如何解决呢？

我晕，我对那些代码有所有修改。有几个地方我写错了 。我早就改了。还有，你DBI->connect("dbi:Oracle:db:ip_db", 'user', 'passwd')

这个地方要改的啊。

dbi:Oracle:database:host:port

database  你要替换成你要访问的数据名称
host  你要替换成你要访问的地址（你windows的地址）
port 你要替换成你的oracle是绑定在哪个端口
'user' 你确信你的用户名是 它？？
'passwd' 密码是它？？

use DBI;
my $dbh = DBI->connect('dbi:Oracle:host=localhost;sid=ORCL;port=1521',
               'scott', 'tiger', { RaiseError => 1, AutoCommit => 0 });

根据这个试试

郁闷。。。机器重启后，执行出错。。。
[root@linux ex]# ./oracle
install_driver(Oracle) failed: Can't load '/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle: libclntsh.so.10.1: 无法打开共享对象文件: 没有那个文件或目录 at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/DynaLoader.pm line 229.
at (eval 3) line 3
Compilation failed in require at (eval 3) line 3.
Perhaps a required shared library or dll isn't installed where expected
at ./oracle line 6
[root@linux ex]#