# параллельный запуск и ожидание завершения нескольких скриптов
# скрипты должны быть перечислены в файле, передаваемом как параметр 
# командной строки или поступать из стандартного ввода
# запускаться могут .bat, .cmd, .vbs, .js, .pl файлы c параметрами
# все, что идет до первого пробела - считается исполняемым скриптом, после
# - параметрами. В зависимости от расширения скрипта выбирается исполняющая программа
# cmd.exe - ищется по comspec, cscript - ищем в windir-system32 или perl - исполняющий сам скрипт
# PID-ы запущенных процессов заливаются в *.pids файл

use Win32::Process;
use Win32;

#массив объектов - процессов
my @all_ids;

my $comspec=$ENV{ComSpec};

open PIDF, '>parallel.pids';
while (<>)
{
    chomp;
    my $run_line;
    my $full_cmd=$_;
    # распилим строку на команду и аргументы по первому пробелу
    s/\s.*//;

    if (m/(\.bat)|(\.cmd)/) {
	    $comspec=$ENV{ComSpec};
	    $run_line="cmd /C ".$full_cmd;
    } elsif (m/(\.vbs)|(\.js)/) {
	    $comspec=$ENV{windir}.'\system32\cscript.exe';
	    $run_line="cscript ".$full_cmd;
    } elsif (m/\.pl/) {
	    $comspec=$^X;
	    $run_line="perl ".$full_cmd;
    }
    
  Win32::Process::Create($ProcessObj, $comspec, $run_line, 0, NORMAL_PRIORITY_CLASS, ".");
  #пометим процесс как запущенный
  push @all_ids, $ProcessObj;
  # скинем PID в файл
  $pid=$ProcessObj->GetProcessID();
  print PIDF "$pid: $full_cmd\n";
}
close PIDF;
$is_process=1;

while ($is_process) {
   @temp_ids=@all_ids;
   @all_ids=();
   # поспим 1 секунду
   sleep 1;
   foreach (@temp_ids) {
     # для процесса проверим статус
     if (! $_->Wait(1)) {
	 # процесс еще не завершен. пометим, что нужен еще проход
	 push @all_ids,$_;
       }     
   }
   $is_process=@all_ids;
}