Вызов пакетных файлов из Perl асинхронно

Question

У меня есть пакетный файл, который будет выполнять задачи для меня. Я должен вызвать этот командный файл из моего файла PERL.

Я хочу, чтобы это называлось асинхронно. Пакетный файл задачи будет занимать много времени, и я не хочу, чтобы этот Perl-файл ожидал, пока файл Баха закончится

Это то, что я пытался для симуляции

Пакетный файл:

@ECHO off
ECHO ------Start of Batch file---------- >> C:\\temp\test.txt
Echo ------End of Batch file---------- >> C:\\temp\test.txt
pause

Причина, по которой я добавил Pause, заключается в том, чтобы моделировать айснч (Логично, что если в Async нет способа нажать enter в командном файле :-))

Мой Perl-код выглядит так

system("CreateTicket.bat");

Когда я использую system();, он ожидает, пока командный файл завершит свое выполнение

Я изменил его с помощью

"C://Work/Playground/Perl/CQ_createRTCTicket.bat"; (с галочками здесь проблема форматирования)

Это также ожидает остановки командного файла (думаю, из-за паузы)

Или, если мой подход неверен, есть ли способ симулировать этот асинхронный?

[Я не могу использовать дополнительные модули из CPAN]

Спасибо

Karthik

Answer 1

Как вы заметили, system () ожидает другого процесса. Внутренне, он forks () другой процесс, который вызывает exec () для запуска вашего пакетного файла, и оригинальный процесс ждет. Если вы не можете использовать CPAN, тогда вы можете сами вызывать fork () и exec () и просто не ждать завершения дочернего процесса.

Сначала прочтите это:

• http://perldoc.perl.org/perlipc.html
• perldoc -f fork
• perldoc -f exec

Обратите внимание на бит о сигналах и процессах зомби. Как только вы поняли, как это работает, все достаточно просто.

Если ваш пакетный файл генерирует вывод, который вам нужно обработать в вашем perl, тогда вы можете использовать open () для создания канала к нему (perldoc -f open).

Подобные вопросы задавались ранее:

В чем разница между бэкиксами Perl, системой и exec?

Answer 2

Используйте «начало» (как предложено здесь

короткое POC:

  print 'before', "\n";
  system "start notepad.exe";
  print 'between', "\n";
  system "start wait.bat";
  print 'after', "\n";