perl 读取用户输入 如何设置超时

juey

bash里面 希望得到用户输入 可以用read -t 来设置超时
否则 一直阻塞在等待用户的输入 比如 $var = <STDIN>;
perl里面怎么实现呢

[ 本帖最后由 juey 于 2006-5-25 16:48 编辑 ]

apile

my $data = eval{
  local $SIG{ALRM}=sub {die "timeout\n";};
  alarm(10);
  my $data = <AA>;
  return $data;
};
alarm(0);
像這樣..

juey

非常感谢 ，  但是  还是不怎么理解 ，  可以推荐   哪本书里有这样的介绍的吗？

兰花仙子

原帖由 juey 于 2006-5-25 16:50 发表
非常感谢 ，  但是  还是不怎么理解 ，  可以推荐   哪本书里有这样的介绍的吗？

置顶帖"mod_perl编程指南"里，有关于处理超时的非常详细的解释。