Jak mogę wykonać zewnętrzną komendę Windows i od razu zwrócić w Perlu?

Question

Próbowałem używać system() z fork(), próbowałem exec(), i nadal nie dostałem tego, czego potrzebuję.

Chcę napisać skrypt Perla, który uruchamia, powiedzmy, inny skrypt Perla 5 razy z rzędu (wysyłając różne wartości parametrów), ale powinien być uruchamiany jednocześnie. Zdaję sobie sprawę, mogę włączyć mój skrypt do pliku .pm i odwoływać się do niej, ale wolałbym, aby utrzymać niezależny skryptu dziecko rodzica ... systemu

• () działa, ale wykonuje polecenia kolejno (sens za doc)
• exec() nie robi praca - tylko ona wykonuje pierwsza metoda (sens za doc)
• dodałem widelca(), aby perl dziecko skryptu, a następnie próbował za pomocą systemu ()
• to też nie działa.
• lewy apostrof 'Dokumenty dowodzenia mówi działa tak samo jak system() ...

nie Czy istnieje prosty sposób w Perl (im przy WindowsXP), aby wykonać proces, a nie dbać o Zwróć wartości lub zabierz i po prostu przejdź do następnego wiersza skryptu rodzica?

Answer 1

W systemie Windows możesz nadać systemowi super-tajną flagę, IIRC.

system 1, @cmd; 

Szybkie wyszukiwanie google na to pytanie na perlmonks daje: http://www.perlmonks.org/?node_id=639814

nadzieję, że pomoże.

Answer 2

Musisz rozwidlić rodzica, a następnie wykonać polecenie w nowym procesie. To idzie tak, zakładając, że jest oryginalny scenariusz, a B jest jeden chcesz zrobić 5 razy:

   A1 
fork in A1 -> A1 A2 
exec B in A2 -> A1 B2 
fork in A1 -> A1 A3 B2 
exec B in A3 -> A1 B3 B2 

itp

Answer 3

można to zrobić tak (rozwidleniu rodzica, exec u dziecka):

for my $cmd qw(command1 command2 command3) { 
     exec $cmd unless fork 
} 

sposób, który exec $cmd unless fork prac jest to, że fork zwróci wartość true w dominującej (identyfikator procesu) i zwróci wartość false w dziecku, co exec $cmd tylko zostanie uruchomione, jeżeli fork zwraca wartość false (a ka, u dziecka).

lub jeśli chcesz zachować zakładki na procesie, gdyż biegnie równolegle:

my @procs; 

for my $cmd qw(cmd1 cmd2 cmd3) { 

    open my $handle, '-|', $cmd or die $!; 

    push @procs, $handle; 
} 

następnie można odczytać z elementu @procs jeśli trzeba.

Można również rzucić okiem na jeden z wielu modułów cpan, takich jak Forks::Super, które obsługują szczegóły zarządzania widelcami.

Answer 4

Moduł jest przesadny dla tego zadania. Chcesz fork, aby utworzyć nowy proces, a następnie exec, aby uruchomić polecenie w nowym procesie.Aby uruchomić pięć komend, potrzebujesz czegoś takiego:

for (my $i=0; $i<5; $i++) { 
    if (fork() == 0) { 
     exec($command[$i]); # runs command, doesn't return 
    } 
} 

Answer 5

Bardzo lekkie podejście.

Windows:

foreach my $cmd (@cmds) 
{ 
    `start $cmd`; 
} 

UNIX:

foreach my $cmd (@cmds) 
{ 
    `$cmd &`; 
}