关于socket发送数据的问题（急）

擦肩而过的精灵

UID: 32349
帖子: 44
积分: 101
在线时间: 2 小时

1^# 擦肩而过的精灵发表于 2008-04-14 20:27

关于socket发送数据的问题（急）

关于socket发送数据的问题（急）
#!/urs/bin/perl -w
use IO::SOCKET;

$sock = IO::Socket::INET->new(peerAddr=>'192.168.1.166',
PeerPort=>8080,
proto=>'udp')||die "can't connect";

foreach(1..10)
{
print "$sock 123\n";
$sock->flush();
}
close($sock);

phoenixkiller

UID: 27032
帖子: 1
积分: 2
在线时间: 10 分钟

2^# phoenixkiller 发表于 2008-09-23 16:14

应该是print $sock "123\n.
应该是print $sock "123\n";