#----------------------------- $SIG {ALRM} = sub { die "timeout" }; eval { alarm ( 3600 ); # long-time operations here alarm ( 0 ); }; if ( $@ ) { if ( $@ =~ /timeout/ ) { # timed out; do what you will here } else { alarm ( 0 ); # clear the still-pending alarm die; # propagate unexpected exception } } #-----------------------------
by: 发表于:2017-09-18 17:50:01 顶(0) | 踩(0) 回复
??
回复评论