VPF::фильтрация stdout запущенной программы

korob2001

Дата 10.11.2004, 22:16 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Цитата

ElectricalStorm, может подскажешь, как мне потом снова открыть stdout, с помощью open stdoun; не получается???

Можно заюзать select.

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

ElectricalStorm

Дата 10.11.2004, 22:47 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

Можно заюзать select.

неполучиться ;)

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

Нужно знать инструмент, которым пользуешься

study

Дата 11.11.2004, 11:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

Прога написана на с++

ElectricalStorm

Дата 11.11.2004, 17:13 (ссылка)

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

Загрузка ...

Опытный

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

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

тада не знаю... smile

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

Нужно знать инструмент, которым пользуешься

study

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

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

Загрузка ...

Шустрый

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

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

ElectricalStorm, а какая разница на чем прога написана, мне её трогать не нужно, мне лишь надо её из своего скрипта запустить и прочитать выходные данные этой проги. Вот кусок кода

Код


open(FL,"$conffile") or die "Couldn't open file $conffile $!";
while(<FL>){
chomp;
($ip,$port)=split(/-/,$_);    #read data from file
if (!defined ($pid = fork())) {
 die "cannot fork: $!";
} elsif ($pid == 0) {
$result=system("$prog -c $ip -p $port");
........
здесь надо как-то обработать выходные данные, не выводя их в браузер, и проверить, если выполнение проги затягивается, то завершить её как-то????
}

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

mishnik

Дата 29.3.2011, 15:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


use IPC::Open3 'open3';
my $ret=run_shell('my_prog.c++');
sub run_shell {
    my ($cmd) = @_;
    my @args = ();
    my ( $HIS_IN, $HIS_OUT, $HIS_ERR ) = ( $EMPTY, $EMPTY, $EMPTY );
    my $childpid = open3( $HIS_IN, $HIS_OUT, $HIS_ERR, $cmd, @args );
    $ret = print {$HIS_IN} "stuff\n";
    close $HIS_IN;    # Give end of file to kid.
    if ($HIS_OUT) {
        my @outlines = <$HIS_OUT>;    # Read till EOF.
        $ret = print " STDOUT:\n", @outlines, "\n";
    }
    if ($HIS_ERR) {
        my @errlines = <$HIS_ERR>;    # XXX: block potential if massive
        $ret = print " STDERR:\n", @errlines, "\n";
    }
    close $HIS_OUT;
    close $HIS_ERR;
    waitpid $childpid, 0;
    if ($CHILD_ERROR) {
        $ret = print "That child exited with wait status of $CHILD_ERROR\n";
    }
    return 1;
}

shamber

Дата 30.3.2011, 10:16 (ссылка)

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

Загрузка ...

Эксперт

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

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

mishnik, хохо 2004 год

mishnik

Дата 7.4.2011, 18:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

какой-то неживой форум в разделе perl
да, странно удалить запись не удалось ? (имеется в виду сообщение форума)

Это сообщение отредактировал(а) mishnik - 25.4.2011, 13:36

mishnik

Дата 25.4.2011, 13:37 (ссылка)

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

Загрузка ...

Шустрый

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

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

удалить мое последнее сообщение, пожалуйста,
Спасибо!

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