作者LiloHuang (相见不如怀念)
看板perl
标题Re: [问题] 如何让特定程式只执行一段时间?
时间Wed Aug 22 19:17:27 2007
#!/usr/bin/perl
run();
run();
run();
sub run {
my $pid = fork();
if($pid == 0){
alarm(3); # 秒数
exec("ping www.hinet.net"); # exec system call
}else{
waitpid($pid, 0);
}
}
※ 编辑: LiloHuang 来自: 211.79.63.18 (05/03 20:25)