哪位高手解释一下下列程序是什么意思!急!谢谢

Senno

最近在研究<<perl网络编程>>,第469页的程序不是太明白,求教.其中的\*STDIN是全局引用,但是什么时候才能从键盘输入?把程序重新打了一遍发现运行后怎么都不能从键盘输入指令?求教哪位解释一下原理,谢谢
.....
$nickname=do_login();#用户登陆
die "Can't log in.\n"unless $nickname;
my $select=IO::Select->new($server->socket,\*STDIN);#
LOOP:
while(1){
        my @ready=$select->can_read;
       
        foreach  (@ready) {
                if ($_ eq \*STDIN) {
                        do_user(\*STDIN)||last LOOP;
                }else {
                        do_server($_);
                }
        }
}

sub do_user{....

flw

不能从键盘输入命令，多半你的系统是 Windows（下回就不要让我猜了，最好自己一早就把 OS 说出来）。
Windows 上的 STDIN 不能 select，所以运行起来多半是有问题了。