作者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)