LINUX.ORG.RU

Запуск программ в Perl


0

0

Здравствуйте. Столкнулся с такой задачей: написать прогу на пёрле, которая запускала бы какую нибудь прогу, выводила бы результат работы проги и могла бы завершать программу по таймауту. Подскажите, пожалуйста, как это сделать, либо отправте на какую-нибудь порядочную статью по этому вопросу

man perlfunc
на предмет: alarm (с примером в тему), system

tzukko ()
Ответ на: комментарий от hizel

Прогу запустить я могу. Конкретно проблема - убить её из моей проги. В примере по alarm описано, как убить саму прогу, а не ту, которую надо запустить

Dimich ()
Ответ на: комментарий от Dimich

>В примере по alarm описано, как убить саму прогу, а не ту, которую надо запустить.

Да ну-ка?
Внимательнее читай.

tzukko ()
Ответ на: комментарий от Dimich

> Конкретно проблема - убить её из моей проги.

man IPC::Open2 же…

arsi ★★★★★ ()
use strict;
use IPC::Open2;
use IO::Select;

my $pid = open2 my $out, my $in, 'sleep 3; echo hello world' or die $!;
my $sel = IO::Select->new($out);

if ($sel->can_read(2)) {
        print <$out>;
} else {
        kill 9, $pid;
        print "too slow\n";
}
arsi ★★★★★ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.