今天有高手吗，帮我看看呀。。。。

luobutou

#! /usr/bin/perl
#程序2003/12/12 由luobutou创建
#最后修改时间2003/12/12 11:50 由luobutou
use strict;
use CGI;
use DBI;
$| = 1;
#my  $ibm_info;
#my ($ibm_info, $username, $phone, $phone1, $phone2, $phone3, $corp, $business); #定义变量
#$ibm_info = CGI->;new();

####################################################
#构建数据库连接
###################################################
#sub connect_oracle()
#{
        my ($l_username);
        my ($l_userpass);
        my ($l_this);

        $ENV{'ORACLE_HOME'} = '/home/oracle/product/8.1.6';
        $ENV{'NLS_LANG'} = "SIMPLIFIED CHINESE_CHINA.ZHS16CGB231280";
        $ENV{'TWO_TASK'} = "test";

        $l_username = "webadmin";
        $l_userpass = "webadmin";

        $l_this = DBI->;connect("DBI:Oracle:",$l_username,$l_userpass)|| die(&db_error('connect'));
        $l_this->;{LongTruncOk} = 1;
        $l_this->;{LongReadLen} = 8000;
#        return($l_this);
#}

#取得用户填入的信息
#$username =$ibm_info->;param('username');
#$phone1   =$ibm_info->;param('phone1');
#$phone2   =$ibm_info->;param('phone2');
#$phone3   =$ibm_info->;param('phone3');
#$corp     =$ibm_info->;param('corp');
#$business     =$ibm_info->;param('business');
#$phone    = $phone1."-".$phone2."-".$phone3;

my ($l_rs);
my ($db_this);
$db_this=connect_oracle();
my $query = qq{insert into ibminfo (id,username,phone,corp,business,createtime) values };
$query.= qq{(ibminfo_id.nextval,'username','phone','corp','business',sysdate)};
$l_rs = $db_this->;prepare($query) or die("can't ";
$l_rs->;execute() || print "$query execute error";
$l_rs->;finish;
print "Content-type:text/html\n\n";
print "<script>;alert('数据添加成功！谢谢！');window.close();</script>;";
===============================================
我在一台机器上测试成功了换了一台机器后就不行了。调试好想是数据库连接那的问题。$l_this = DBI->;connect("DBI:Oracle:",$l_username,$l_userpass)|| die(&db_error('connect'));可是别的程序没有问题也是这样连接的呀。ORA-12541，zai

lgjut

DBI:Oracle:

因为连接参数中没有指定数据库连接名称吧。
DBI:Oracle:tnsname