怀疑 perl 的 alarm 在xp上有兼容性问题 (version: 5.8.8)

dugu072

perl 版本是 5.8.8
在xp home 版本上，alarm() 不会超时发送 ALRM 信号，主要代码逻辑如下, xp home 上无法正常运行, linux 工作正常

$SIG{ALRM} = \&timeout;
eval{
    alarm(10);
    ...
    alarm(0);
};
if( $@ =~ /xxx/ ) {
   print xxx;
}
sub timeout {
   print yyy;
}

网上查了下,发现 有报 win2003 上 alarm 有问题, 但没看到 xp home 的问题, 不知道大家有没有遇到过?

DQP

嗯 windows下就不要用alarm了

dugu072

ok, 谢谢~
windows 很多郁闷的地方啊...
工作环境又必须是windows...
期待 perl 6 的表现~

churchmice

windows上的alarm会被io read给block掉的
这问题我已经碰过过
后来是用其他方法模拟alarm的
如果需要代码我可以提供给你

orangetouch

原帖由 churchmice 于 2009-9-18 22:14 发表
windows上的alarm会被io read给block掉的
这问题我已经碰过过
后来是用其他方法模拟alarm的
如果需要代码我可以提供给你

什么方法？我想的是用线程模拟一下。

或者Windows下有什么能用的东西？

dugu072

原帖由 churchmice 于 2009-9-18 22:14 发表
windows上的alarm会被io read给block掉的
这问题我已经碰过过
后来是用其他方法模拟alarm的
如果需要代码我可以提供给你

当然需要了！因为我是需要解决等待超时输入的问题，后面使用 readkey( timeout ) 绕过的，但是要能模拟 alarm ，那就更好了！可以发代码的话，麻烦发到：dugu072#gmail.com

churchmice

1. 
   
2. #Timeout read
   
3. #This is a timeout read subroutine which implement windows and UNIX system differently based on $^O
   
4. ##Please remember to add "use Config" at the top of your program
   
5. ##my $res = time_out("timeout")
   
6. ##The timeout is specify with "timeout" value, default to 3s, you can change it at your will
   
7. ##If user input something within the specified time, the input is stored in $res
   
8. ##else timedout, and a default value "No input" is returned, you can change the default value in the code
   
9. sub timeout_read {
   
10.     my $timeout = 5;    #Default to 5 s
    
11.     $timeout = shift if @_;
    
12.     my $tmpfile = "tmp";       #The name of the temporary created file
    
13.     my $result  = "No input"
    
14.       ;    #The default return value, you can change it to anything you want
    
15. 
    
16.     #Depending on the operating system, treat the timeout problem accordingly
    
17.     if ( $^O =~ /MSWin32/i ) {
    
18. 
    
19.         #This is windows OS, so we could use Win32::Job to implement it
    
20.         eval "use Win32::Job";
    
21.         my $job = Win32::Job->new;
    
22. 
    
23. #Create a job to read the user input and redirect the stdout to a file called tmp
    
24.         $job->spawn(
    
25.             $Config{perlpath},
    
26.             q{perl -e "print scalar <STDIN>"},
    
27.             { stdout => "tmp" },
    
28.         );
    
29.         my $status = $job->run($timeout);
    
30.         if ($status) {    #User has input something
    
31.             chomp( $result = qx /type $tmpfile/ );
    
32.             unlink $tmpfile or warn "Fail to remove $tmpfile";
    
33.         }
    
34.     }
    
35.     else {
    
36. 
    
37.   #This is a UNIX like system, so could implement the timeout read in alarm call
    
38.         my $tmp;
    
39.         eval {
    
40.             local $SIG{ALRM} = sub { die "alarm\n" };
    
41.             alarm $timeout;
    
42.             chomp( $tmp = <STDIN> );
    
43.         };
    
44.         if ($@) {
    
45.             die $@ if $@ ne "alarm\n";
    
46.         }
    
47.         else {
    
48.             $result = $tmp;
    
49.         }
    
50.     }
    
51. 
    
52.     #Finally, reset the alarm
    
53.     alarm 0;
    
54.     return $result;
    
55. }
    

复制代码

这是我以前写的一个超时阅读函数，在Linux和windows上都可以用
通过my $res = time_out("$timeout");调用
默认的超时时间是5s，如果没有输入，返回"No input",反之则返回用户输入的数据，你可以自己根据实际的应用情况照着修改，反正源代码都贴了

dugu072

OK, 谢谢，原来是 Win32::Job，之前不知道这个模块的，不错的东西，学习了！

顺便一提，如果是输入超时的话，个人觉得Term::ReadKey会更方便，win/linux都是一样用，还没有临时文件~
use Term::ReadKey;
ReadMode(4);
my $key = ReadKey(10);
ReadMode(0);

churchmice

非常感谢，亏我还码了这么多代码