[問題] 請問有關聊天室問題
我已經用好了廣播
現在要寫辨別我是誰的程式碼部分出現問題
程式碼如下:
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
推
06/19 18:49, , 1F
06/19 18:49, 1F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
