alarm和eval组合在win32环境下好像不好使哦

red999

#!c:\Perl\bin\perl.exe -w


$SIG{ALRM} = \&f;

my $str;

eval{
        print "lease enter:\n";
        alarm(10);
        $str = <STDIN>;
        chomp($str);
        alarm(0);
        print "The iput isstr\n";
};

print "Over!\n";

sub f{
        die "No input\n";
}

不好使啊，为撒10秒没输入还是阻塞状态那？不过在linux环境下却正常，10秒没输入结束。

[ 本帖最后由 red999 于 2007-8-28 15:26 编辑 ]

red999

感觉好像是alarm有问题，难道win32不支持alarm，但是也没有提示啊？

xiaoyafeng

按照自己的想法， 不要怀疑！:wink: :wink: :wink:

KevinLee39

这个信号机制是UNIX的, Windows没有吧.

可能Windows下要用其它的方式实现.