perl求救,急!

Senno

Select模块的问题
my $temp=IO::Select->new($server,\*STDIN);
my @ready=$temp->can_read;

用select模块监听文件句柄$server,和用户输入\*STDIN,发现在windows中select不能用\*STDIN(经高人指点)
想问一下有什么解决方法?
用线程thread可以吗?一个线程用来监听$server文件句柄,
另一个线程用来监听用户的STDIN

进程是不是在windows下不能使用?
冒死发文,那位高手救救我,万分感激!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

flw

进程线程在 windows 下都能用，
select 不能监视 STDIN 这个倒是真的，
不过应该有解决办法。

Senno

再问一下,
perl中有类似c语言中的kbhit()函数吗?
c语言的kbhit()函数可以判断键盘是否有输入,有键盘输入可读入键盘的值
下面是kbhit()的实例代码:
if(kbhit())
            {
        Sendmsg[i]=getch();
        putchar(smsg[i]);
                if(Sendmsg[i]==13) putchar(10);
                   
        if (Sendmsg[i]==13)//如果是回车
        {
r=send(c,(char *)&Sendmsg,sizeof(Sendmsg),0);//发送信息
memset(smsg,'\0',sizeof(Sendmsg));       //发送字符缓存区清空
        i=-1;
        }
                if(r<0)     break;                        //传送错误退出
        i++;
          }