作者ArzasV (林志玲来电~林志玲来电!)
看板perl
标题[问题] 请问有关聊天室问题
时间Tue Jun 19 15:29:39 2007
我已经用好了广播
现在要写辨别我是谁的程式码部分出现问题
程式码如下:
use IO::Socket;
use IO::Select;
use IO::Handle;
my $listen = IO::Socket::INET->new(
LocalPort => 1212,
Listen => 5,
Proto => 'tcp',
Reuse => 1, ) or die $!;
my $select = IO::Select->new($listen);
my @ready;
while (@ready = $select->can_read)#等待连线发生
{
my $socket;
for $socket(@ready)
{
if($socket == $listen)
{
my $new = $listen->accept;
$select->add($new);
$new->write("输入您的昵称:");
$handle[$new->fileno] = $new->recv($name,20);
}
else
{
my $line="";
$socket->recv($line,80);
if($line eq "")
{
print $socket->fileno;
$select->remove($socket);
$socket->close;
}
for $socket($select->handles)
{
next if($socket == $listen);
$socket->send("????????? 说: $line");
}
}
}
}
请问问号那边要打什麽才会知道是谁说话呢???
我自己是打$name拉 不过名字会被後来进来的人洗掉
变成大家名字都一样QQ
请高手赐教 (拜!)
--
别搞我啊~~~我也想A一下啊~~!~!
http://www.wretch.cc/album/arzasv
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 124.8.139.220
1F：推 LiloHuang:你没有fork新的child process来处理新连线阿... 06/19 18:49