帮我看看这个udp通信的问题

擦肩而过的精灵

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

1^# 擦肩而过的精灵发表于 2008-04-23 18:16

帮我看看这个udp通信的问题

客户端:
use IO::Socket;
$sock = IO::Socket::INET->new(PeerAddr=>'127.0.0.1',
PeerPort=>3000,
Proto=>'udp',
Listen=>3,
Reuse=>1);
$data="Hello";
foreach(1..10)
{
print $sock "$data\n";}
$sock->recv($msg,100,0);
print $msg;

close $sock;

服务器端
$sock = IO::Socket::INET->new(PeerAddr=>'127.0.0.1',
PeerPort=>3000,
Proto=>'udp',
Listen=>3,
Reuse=>1);
while(1)
{
$sock->recv($data,100,0);
print "$data\n";
$sock->send("I get","127.0.0.1");
}

为什么运行了上面的两个程序后，服务器收到了客户端发的数据，但是客户端没有收到服务器发的呢？
我感觉客户端的$sock->recv($msg,100,0);print $msg;这两句没有执行

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-04-23 18:18

在程序的开头加上：
use strict;
use warnings;

擦肩而过的精灵

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

3^# 擦肩而过的精灵发表于 2008-04-23 18:44

这些我都用了，是通的

smonkey0

UID: 42438
帖子: 74
积分: 170
在线时间: 7 小时

4^# smonkey0 发表于 2008-04-23 20:55

QUOTE:

原帖由擦肩而过的精灵于 2008-4-23 18:44 发表
这些我都用了，是通的

错的是有点离谱...这样别人不肯帮你的.

client:

[Copy to clipboard] [ - ]

CODE:

use IO::Socket;
my $sock = IO::Socket::INET->new( PeerPort  => 9999,
                                 PeerAddr  => 'localhost',
                                 Proto    => udp,
                                 Broadcast => 1
                              )or die "Can't bind : $@\n";
for(1..10){
print $sock "client $_\n";
}
my $msg;
while($sock->recv($msg,100,0)){
print $msg;
}

close $sock;

server:

[Copy to clipboard] [ - ]

CODE:

use IO::Socket;
my $sock = IO::Socket::INET->new( LocalAddr => 'localhost',
                                 LocalPort => 9999,
                                 Proto    => udp,
                                 Broadcast => 1
                              )or die "Can't bind : $@\n";
my $back;
while($sock->recv($back,100,0)){
print $back;
$sock->send("server recv\n",'localhost');
}

close $sock;

我也是刚看文档的,虽还不清楚参数是什么意思,但至少是通了.