VPF::Управляющий скрипт - Форум программистов

t34

Дата 13.1.2009, 17:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.1.2009

Репутация: нет
Всего: нет

Доброго времени суток! Просьба подсказать по поводу следующей проблемы. Задача такая.

Есть два скрипта 1.pl, 2.pl

Содержание 2.pl предельно просто:

Код


print "\nStart\n";
while (1)
{
   print "\rProcess"
}

В задачу скрипта 1.pl должна входить следующая функция:
Скрипт 1.pl должен произвести выполнение скрипта 2.pl. Спустя 10 секунд он должен закончить выполнение 2.pl и произвести выполнение 2.pl снова
-----
Простыми словами, 1.pl должен каждые 10 секунд запускать 2.pl

Подскажите, как реализовать 1.pl
Заранее спасибо

Upd: Платформа win

Это сообщение отредактировал(а) t34 - 13.1.2009, 17:42

gcc

Дата 13.1.2009, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

должно что-то вроде бы так:

Код


while ()
{
   print "\rProcess"
 sleep секунды;
}

после выполнение выключается на некотрое время

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

t34

Дата 14.1.2009, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.1.2009

Репутация: нет
Всего: нет

Вы неправильно меня поняли.. В этом случае 2.pl не завершает работу, просто дилэй на "секунды". Необходимо, чтобы 1.pl производил управление скриптом 2.pl.

Вот реализация 1.pl на никсах:

Код


use warnings;
use strict;

while (1)
{
    open (my $p, 'c:\2.pl |');
    my $s = <$p>;
    print $s;
    sleep 10;
    close $p;
    print "run\n";
}

Но не работает на win платформе.. Подскажите как здесь быть.

shamber

Дата 14.1.2009, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

t34, Win32::Process должен вам помочь

Это сообщение отредактировал(а) shamber - 14.1.2009, 10:31

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »