Убить сервер ADB с помощью сценария Perl

Question

Я пытаюсь убить сервер adb после запуска моего скрипта. У меня есть подпрограмма terminate, которую я использую, чтобы остановить скрипт и убить рекламный сервер.

         sub terminate
   {
      print "\nTerminating script ...\n";
      system("adb kill-server");
      if($ostype eq 'MSWin32') {
      $ProcessObj->Kill(0);
    }
      exit 0;
}

Я получаю сообщение об ошибке "Не удается вызвать метод" Kill "для неопределенного значения". Я посмотрел в своем скрипте и обнаружил, что скалярный $ ProcessObj определен, но я не использовал его, кроме как в этой подпрограмме. Как я могу обойти эту проблему, нужно исправить это как можно скорее. Спасибо

Answer 1

Получил работу, проблема была в том, что adb не перезагружался изящно. Только что добавлен система ("adb start-server")