IO：：Socket：：INET client端程序

洲洲young

UID: 36153
帖子: 132
积分: 303
在线时间: 1 天

1^# 洲洲young 发表于 2008-12-24 09:01

IO：：Socket：：INET client端程序

#!/usr/bin/perl

use IO::Socket;

$socket=IO::Socket::INET->new(

         PeerAddr=>192.168.3.131,

         PeerPort=>3000,

         Proto=>"tcp",

         Type=>SOCK_STREAM)

or die "Couldn't connect to 192.168.3.131:3000@\n";

# ...do something with the socket

print $socket "Why don't you call me anymore?\n";

$answer=<$socket>;

#and terminate the connection when we're done

close($socket);

为什么结果是“couldn't connect to 192.163.3.131:3000::IO::Socket::INET:bad hostname  ...”

这是什么原因呢，怎样才能实现连接呢？？

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

2^# ynchnluiti 发表于 2008-12-24 13:29

QUOTE:

原帖由洲洲young 于 2008-12-24 09:01 发表
#!/usr/bin/perl

use IO::Socket;

$socket=IO::Socket::INET->new(

         PeerAddr=>192.168.3.131,

         PeerPort=>3000,

         ...

不清楚原因。发生dns解析了？

洲洲young

UID: 36153
帖子: 132
积分: 303
在线时间: 1 天

3^# 洲洲young 发表于 2008-12-25 15:12

原因找到了，要先运行server端的程序，
然后再运行client端程序，
server的端口打开后，client才能连接上！

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

4^# ynchnluiti 发表于 2008-12-25 15:17

QUOTE:

原帖由洲洲young 于 2008-12-25 15:12 发表
原因找到了，要先运行server端的程序，
然后再运行client端程序，
server的端口打开后，client才能连接上！

原来没打开server，也可能提示bad hostname