Обработчик процесса -SIGALRM не доставлен - Perl

Question

У меня есть команда, которую я выполняю с помощью OPEN с помощью pipe, и я хочу установить тайм-аут в 10 секунд и прервать подпроцесс, если время выполнения превышает это. Однако мой код просто заставляет программу зависать. Почему мой ALARM не доставлен должным образом?

my $pid = 0; 
my $cmd = "someCommand"; 
print "Running Command # $num"; 
eval { 
    local $SIG{ALRM} = sub {      
     print "alarm \n"; 
     kill 9, $pid; 
    };    
    alarm 10; 
    pid = open(my $fh, "$cmd|"); 
    alarm 0; 
}; 
if($@) { 
    die unless $@ eq "alarm \n"; 
} else { 
    print $_ while(<$fh>); 
} 

EDIT:

Так Из приведенных ниже ответов, это то, что у меня есть:

my $pid = open(my $fh, qq(perl -e 'alarm 10; exec \@ARGV; die "exec: $!\n" ' $cmd |)); 
print $_ while(<$fh>); 

Но эта печать УСТ.БУДИЛЬНИК на консоль, когда тревоги таймаут ... тогда I dont указать это где-нибудь в коде ... как я могу избавиться от этого, и где бы я поместил пользовательский обработчик событий тревоги?

Спасибо!

Answer 1

Я хочу, чтобы установить таймаут 10 секунд и есть процесс суб отменяется, если время выполнения превышает этот

Другой подход установить сигнализацию на самом подпроцесса, с удобным язык сценариев у вас уже есть:

my $cmd = "someCommand"; 
my $pid = open(my $child_stdout, '-|', 
    'perl', '-e', 'alarm 10; exec @ARGV; die "exec: $!"', $cmd); 
... 

Ваш дочерний процесс первоначально будет Perl (ну, оболочка, а затем Perl), который будет установить сигнализацию на себя, а затем Exec (заменить себя с) $someCommand. Ожидающие сигналы тревоги, однако, составляют inherited across exec()s.

Answer 2

Весь ваш код выполняет настройку 10 секундного таймаута на вызов open, а не на всю внешнюю программу. Вы хотите привести остальную часть своего взаимодействия с внешней командой в блок eval:

eval { 
    local $SIG{ALRM} = sub {      
     print "alarm \n"; 
     kill 9, $pid; 
    };    
    alarm 10; 
    $pid = open(my $fh, "$cmd|"); 
    print while <$fh>; 
    close $fh; 
    alarm 0; 
}; 
if($@) { 
    die unless $@ eq "alarm \n"; 
}