Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Запуск нескольких скриптов

Автор: *eug* 16.11.2003, 22:25

Можно ли одним скриптом запустить несколько других, одновременно?

Автор: Nobody 17.11.2003, 18:15

Код


#!/usr/bin/perl -w
use strict;
use vars qw($pid $i @programs);
@programs = (
	'/path/to/program/1',
	'/path/to/program/2',
	'/path/to/program/3',
	'/path/to/program/4',
);
for ($i = 0; $programs[$i]; $i++) {
	if (!defined ($pid = fork())) {
  die "cannot fork: $!";
	} elsif ($pid == 0) {
  exec ($programs[$i]);
	}
}

Автор: *eug* 17.11.2003, 23:23

Nobody
Спасибо всё работает!
Ток-ма почему они запускаются не по-очереди?

Автор: Nobody 18.11.2003, 00:59

*eug*
Потому, что так написано)) Они запускаются почти одновременно. Просто какие-то стартуют дольше, какие-то меньше.

Автор: Nobody 18.11.2003, 01:00

И вообще, потому что так вопрос был поставлен.

Цитата

Можно ли одним скриптом запустить несколько других, одновременно?

Автор: *eug* 18.11.2003, 21:33

Nobody
Всё понял спасибочки, повешу его теперь на cron!