IP问题。

流浪者

#!/usr/bin/perl -w
use strict;
use DBI;

my $host="127.0.0.1";
my $dbh=DBI->;connect("DBI:mysql:mysqlhost","root","zxrhyz" or die "$DBI::errstr";
my $SQL=<<"EOT";
select user,password from user
EOT
my $cursor=$dbh->;prepare($SQL);       
$cursor->;execute;

my @columns;
while(@columns=$cursor->;fetchrow){
print "@columns"."\n";
}
$cursor->;finish;
$dbh->;disconnect;

代码如上，运行正常。但如果$host设为本机的IP地址代码提示主机不可达，请问这是怎么回事？

apile

我懷疑是DNS的問題...
在/etc/hosts裡面設定那個IP ADDRESS..
然後/etc/resolv.conf裡面的DNS確認一下...
如果你們單位有DNS server...加上去..
還有一個檔案..
linux RedHat 8:
/etc/nsswitch.conf
下面這行...
#hosts:     db files nisplus nis dns
hosts:      files nisplus dns

Solaris 8: /etc/nsswitch.conf
passwd:     files
group:      files
hosts:      files dns
ipnodes:    files
networks:   files dns
protocols:  files
rpc:        files
ethers:     files
netmasks:   files
bootparams: files
publickey:  files


看一下...hosts是不是像上面那樣...