有關(guān) fork 進(jìn)程 死掉重啟問題

ieting

請(qǐng)問各位大大 如果我有兩個(gè) 子進(jìn)程 各自執(zhí)行
但是總會(huì)有死掉或hand住的時(shí)後時(shí) 下面兩個(gè)子進(jìn)程fork的方式 我要如何修正 才能讓 子進(jìn)程死掉或hand住時(shí)重啟該子進(jìn)程
                #執(zhí)行 ALog 指令-開始
                       unless ($pidALog = fork) {
                               unless (fork) {
                                       exec &ALog_Split;
                                       die "exec failed!";
                                           }
                       exit 0;
                }
                #執(zhí)行 ALog 指令-結(jié)束
                #執(zhí)行 Tping 指令-開始
                       unless ($pidTping = fork) {
                               unless (fork) {
                                       exec &Tping_Split;
                                       die "exec failed!";
                                           }
                       exit 0;
                }
                #執(zhí)行 Tping 指令-結(jié)束
sub ALog_Split{
  while(1){
      print "我是子進(jìn)程ALog\n";
      sleep(5);
  }
}

sub Tping_Split{
  while(1){
      print "我是子進(jìn)程Tping\n";
      sleep(10);
  }
}

多謝各位大大指教與指導(dǎo)