有关socket编程客户端延时设置的问题

pigfly

客户端连接上后，服务器端不给客户端发数据
客户端在语句：$report = <$socket>;;执行不下去了
程序就永远的停在这句上了。
我的客户端生成：my $socket = new IO::Socket::INET ("$IPPORT";

问题：IO::Socket::INET客户端 如何能设置超时？

apile

my $report = eval{
   local $SIG{ALRM} = sub {die "timeout" };
   alarm(50);    ##設定TIMEOUT 50秒
   return <$socket>;;
};
  alarm(0);

利用eval...與alarm...設定timeout時間...
記得alarm(0);一定要有...