[問題] 請問有關聊天室問題

[ArzasV (林志玲來電~林志玲來電!)]

我已經用好了廣播

現在要寫辨別我是誰的程式碼部分出現問題

程式碼如下:

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
推 LiloHuang:你沒有fork新的child process來處理新連線阿...