} else {

die "cannot fork: $!" unless defined $pid;

# Порожденный процесс

open(STDOUT, ">&=WRITEME") or die "Couldnt redirect STDOUT: $!: close(README);

exec($program, $arg1, $arg2) or die "Couldnt run Sprogram : $!\n";

while (<README>) { Sstring .= $ ;

# or push(@strings, $ );

close(REAOME);

!> Смотри также-

per&ec(l); рецепты 16.2; 16.4; 16.19; 19.6.

16.2. Запуск другой программы

Проблема

Вы хотите запустить другую программу из своей, дождаться ее завершения и затем продолжить работу. Другая программа должна использовать те же STDIN и STDOUT, что и основная.

Решение

Вызовите функцию system со строковым аргументом, который интерпретируется как командная строка:

Sstatus = system("vi Smyfile");

Если вы не хотите привлекать командный интерпретатор, передайте system список:

Sstatus = systemCvi", Smyfile);

Комментарий

Функция system обеспечивает самую простую и универсальную возможность запуска других программ в Perl. Она не возвращает выходные данные внешней программы, как ... или open. Вместо этого ее возвращаемое значение (фактически) совпадает с кодом заверщения программы. Во время работы новой программы основная приостанавливается, поэтому новая программа может взаимодействовать с пользователем посредством чтения данных из STDIN и записи в STDOUT.

При вызове с одним аргументом функция system (как и open, exec и ,.. ) использует командный интерпретатор для запуска программы. Это может пригодиться для перенаправления или других фокусов:

system("cmd1 args 1 cmd2 1 cmd3 >outfile"); systemCcmd args <infile >outfile 2>errfile");

16.2. Запуск другой программы 561

Чтобы избежать обращений к интерпретатору, вызывайте system со списком аргументов:

Sstatus = systemCSprogram, $arg1, $arg);

die "Sprogram exited funny: $?" unless Sstatus == 0:

Возвращаемое значение не является обычным кодом возврата; оно включает номер сигнала, от которого у.мер процесс (если он был). Это же значение присваивается переменной $? функцией wait. В рецепте 16.19 рассказано о том, как декодировать tuj.

Функция system (но не . . . !) игнорирует SIGINT и SIGQUIT во время работы порожден1ГЫх процессов. Сигналы убивают лишь порожденные процессы. Если вы хотите, чтобы основная программа умерла вместе с ними, проверьте возвращаемое значение system или переменную $?:

if ((Ssigno = system(@arglist)) &= 127) { die "program killed by signal $signo\n";

Чтобы игнорировать SIGINT, как это делает system, установите собственный обработчик сигнала, а затем вручную вызовите fork и exec:

If (Spid = fork) {

й Родитель перехватывает INT и предупреждает пользователя

local $SIG{INT} = sub { print "Tsk tsk, no process interruptus\n" }:

waitpid($pid, 0);

} else {

die "cannot fork: $!" unless defined Spid; Й Потомок игнорирует INT и делает свое дело $SIG{INT} = "IGNORE";

exec("summarize", "/etc/logfiies") or die "Cant exec: S!\n";

(Spid = fork) ? waitpid(Spid, 0) : exec(@ARGV)

or die "Cant exec: S!\n";

Некоторые программы просматривают свое имя. Командные интерпретаторы узнают, были ли они вызваны с префиксом -, обозначающим интерактивность. Программа ехрп в конце главы 18 при вызове под именем vrfy работает иначе; такая ситуация возникает при создании двух ссылок на файл (см. описание ехрп). По этой причине не следует полагать, что $0 всегда содержит имя вызванной программы.

Если вы хотите подсунуть запускаемой программе другое имя, укажите настоящий путь в виде «косвенного объекта» перед списком, передаваемым system (также работает для exec). После косвенного объекта не ставится запятая, по аналогии с вызовом printf для файлового манипулятора или вызовом методов объекта без ->.

Sshell = /bin/tcsh:

system Sshell -csh; # Прикинуться другим интерпретатором

Или непосредственно:

system {/bin/tcsh} -csh; й Прикинуться другим интерпретатором

> Смотри также-

perlsec(i); описание функций waitpid, fork, exec, system и open врег1/ипс(1); рецепты 16.1; 16.4; 16.19; 19.6.

16.3. Замена текущей программы

Проблема

Требуется заменить работающую программу другой - например, после проверки параметров и настройки окружения, предшествующих выполнению основной программы.

Решение

Воспользуйтесь встроенной функцией exec. Если exec вызывается с одним аргументом, содержащим метасимволы, для запуска будет использован командный интерпретатор;

execCarchive *.data")

or die "Couldnt replace myself with archive; $!\n";

Если exec передаются несколько аргументов, командный интерпретатор не используется;

execCarchive", "accounting.data")

or die "Couldnt replace myself with archive; $\n";

В следующем примере настоящее имя программы передается в виде косвен-ногообъекта {/home/tchrist/scnpts/expn}. Фиктивное имя vrfy передается в виде первого настоящего аргумента функции, и программа увидит его в неременной $0.

# Вызвать ехрп как vrfy

system {/home/tchrist/scripts/ехрп} vrfy, §ADDRESSES,

Применение косвенных объектов с system более надежно. В этом случае аргументы заведомо интерпретируются как список, даже если он состоит лишь из одного элемента. Это предотвращает расширение метасимволов командным интерпретатором или разделение слов, содержащих пропуски.

@args = ( "echo surprise );

system §args, # Если @args == 1, используются

# служебные преобразования интерпретатора system { $args[0] } @args; tt Безопасно даже для одноаргументного списка

Первая версия (без косвенного объекта) запускает программу echo и передает ей аргумент "surprise ". Вторая версия этого не делает - она честно пытается запустить программу "echo surprise", не находит ее и присваивает ненулевое значение, свидетельствующее об ошибке.