数据库连接的 服务名，用户名，密码都没错啊 ，为什么会连接失败呢 郁闷了！！

吹风筒

执行一个perl脚本 (pear.conf是配置文件 记载了数据库连接的参数)

1. ./apple.pl -c pear.conf
   

复制代码

结果提示

1. DBI connect('server=S10;charset=cp936','sa',...) failed: Server message number=4002 severity=14 state=1 line=0 server=ase1254lnx64 text=Login failed.
   
2. OpenClient message: LAYER = (0) ORIGIN = (0) SEVERITY = (78) NUMBER = (34)
   
3. Server S10, database
   
4. Message String: Adaptive Server connection failed
   
5. at ./ying.pl line 1112

复制代码

===============
因为程序apple.pl  里面引用了程序“ying.pl ”

1. # 函数文件引用声明
   
2. my $strPath = &dirname($0);
   
3. my($strBaseName,$strDirName) = &fileparse($0);
   
4. require $strDirName . ‘ying.pl’ ;

复制代码

--呵呵 有点复杂吧

看到错误信息 我就定位到了 文件ying.pl 的第1112行 位置附近

1. if ( $DbType =~ /sybase/i ) {
   
2.     print "连接 sybase 数据库 $host : $dbname ... \n";
   
3.     if ( $dbh = DBI->connect("DBI:Sybase:server=$host;charset=$charset",$username,$passwd) ) {
   
4.       print "连接 sybase 数据库 $host 成功! \n";
   
5.       if ( $dbname ne '' ) {
   
6.         if ( $dbh->do("use $dbname") ) {
   
7.           print "转换为数据库 $dbname 成功! \n";
   
8.         } else {
   
9.           print "Couldn't Select Database : $dbname \n";
   
10.           $dbh = undef;
    
11.         }
    
12.       }
    
13.     } else {

复制代码

--唉 按提示说 应该是数据库连接不上
但是脱离这个程序 我使用配置文件里同样的参数去连接数据库 是连得上的！！

现在我实在想不出可能的原因会出在哪里？大家能看出想出可能存在的原因吗？？

都不知道应该从哪个方向下手了》。


数据库连接的 服务名，用户名，密码都没错啊 ，为什么会连接失败呢 郁闷了！！

吹风筒

貌似说的不是很清楚；
就是：有个程序叫apple.pl ，它引用了文件ying.pl，
执行apple.pl里面因为要连接数据库 因此需要传入参数 ，因此写了个配置文件 叫pear.conf，
pear.conf里面记载了数据库的服务名 用户名 密码等；
但是执行
01../apple.pl -c pear.conf
时，报错说连接数据库失败 定位信息说是在ying.pl
但是本人又找不出错误原因

Hank511

“--唉 按提示说 应该是数据库连接不上
但是脱离这个程序 我使用配置文件里同样的参数去连接数据库 是连得上的！！”

那你有没有想过是这个project 环境有问题，例如你试试注释几行关键的地方，少引用几个包，然后再运行连接，有可能是包冲突阿什么的

羲之遗韵

看不懂。

吹风筒

查了，密码错误！
其实输入的密码没错，是程序获取密码截取长度不够啊
我的密码是123456789，结果通过把打印出来发现密码变成1234567，
明显变量长度不够
但是perl里面又没有可以修改变量长度的 我再次懵了！！

yybmsrs

肯定是你代码的问题，看看密码是怎么来的，有没有相关的处理

吹风筒

1. # 函数文件引用声明
   
2. my $strPath = &dirname($0);
   
3. my($strBaseName,$strDirName) = &fileparse($0);
   
4. require $strDirName . 'my_func.pl';
   
5. 
   
6. our %opt;
   
7. getopts("a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z:",\%opt);
   
8. $opt{c} or usage();
   
9. 
   
10. my %var;
    
11. if (!((-e $opt{c}) && (-f $opt{c}))) {
    
12.   print("配置文件：$opt{c} 不存在！\r\n");
    
13.   exit;
    
14. }
    
15. open(CONF_FILE,$opt{c}) || die("打开配置文件$opt{c}失败！");
    
16. my $strLine = "";
    
17. while ($strLine = <CONF_FILE>) {
    
18.   if ( $strLine =~ /^\s*(\S+)\s*=\s*([^#\n]+)/ ) {
    
19.     $var{$1} = trim($2);
    
20.   }
    
21. }
    
22. close(CONF_FILE);
    
23. 
    
24. $var{DomainId} and $var{PrgName}
    
25. and $var{DBType} and $var{DBServer} and $var{DBName} and $var{DBUser} or usage2();
    
26. 
    
27. my $DomainId             =        $var{DomainId};
    
28. my $PrgName              =        $var{PrgName};
    
29. my $FileType             =        $var{FileType};
    
30. 
    
31. my $DBType               =        $var{DBType};
    
32. my $DBServer             =        $var{DBServer};
    
33. my $DBPort               =        $var{DBPort};
    
34. my $DBName               =        $var{DBName};
    
35. my $DBUser               =        $var{DBUser};
    
36. my $DBPasswd             =        $var{DBPasswd};
    
37. my $DBCharSet            =        $var{DBCharSet};

复制代码

密码从配置文件读取而来 my $DBPasswd             =        $var{DBPasswd};
但是具体就不懂了 大虾啊 你要救救我啊

yybmsrs

close(CONF_FILE);后print Dumper \%var;看看密码是否跟文件一致