Как открыть командную строку с Perl?

Question

Хорошо, прочитайте это снова.Мне нужно, чтобы открыть окно Windows с Perl.Это потому, что я хочу, чтобы несколько запросов запускали Perl-сценарии параллельно, но не хочу открывать их все вручную.Поэтому мне нужен скрипт, который я могу вызвать (хост), указать количество командных приглашений, которые нужно открыть (клиенты), путь к клиентскому скрипту для запуска и даже ввести входные данные, если клиенты спросят.Итак, две основные вещи:

1. Как открыть приглашение с помощью сценария Perl

2. Как передать ввод в это приглашение

Спасибо!(PS Я знаю, что было бы огромной ошибкой запускать скрипт хоста, который вызывает тот же скрипт хоста, надеюсь, мой босс этого не делает: P)

Answer 1

Это может быть не вопрос Perl, так сказать, а вопрос Windows.Я подозреваю, что вы хотите сделать, это вызвать «start ».

Например:

my $cmd = "perl -w otherscript.pl";
my $result = system( "start /LOW $cmd" );

Это должно запустить нужную команду в новом окне и немедленно вернуться,Введите start /? для других параметров, которые могут изменить приоритет нового скрипта, скрыть следующее окно или запустить в текущем окне.

Answer 2

Это вопрос для DOS / Windows, а не для Perl.

Использование

system("start cmd.exe /k $cmd")

См. start /? и cmd /?.