たいのですがタイムアウト、フォプロセスがハング?

StackOverflow https://stackoverflow.com/questions/1962985

  •  21-09-2019
  •  | 
  •  

質問

皆様にお伝えしたくて書き込みるPerlスクリプトを書の一部入力し、その入力外部プログラム。ありがゼロでないこのプログラムがハングして大事にしていきたいと思い時間でした

my $pid = fork;
if ($pid > 0){
    eval{
        local $SIG{ALRM} = sub { die "TIMEOUT!"};
        alarm $num_secs_to_timeout;
        waitpid($pid, 0);
        alarm 0;
    };
}
elsif ($pid == 0){
    exec('echo blahblah | program_of_interest');
    exit(0);
}

としての今後の$num_secs_to_timeout,program_of_interestもみ続けています。また殺での匿名型用 $SIG{ALRM} ：

local $SIG{ALRM} = sub{kill 9, $pid; die "TIMEOUT!"}

でもこなすすべがない。program_of_interestはいまだに根強い.入れは行っていませんの殺害す。

役に立ちましたか？

解決

この成功を殺私のexec()編プロセス 殺しのプロセスグループ, としての質問の回答 Perlでは、殺害の子どもとその子どもが子どもを作成したオープン.かっ自分のコードとして

my $pid = fork;
if ($pid > 0){
    eval{
        local $SIG{ALRM} = sub {kill 9, -$PID; die "TIMEOUT!"};
        alarm $num_secs_to_timeout;
        waitpid($pid, 0);
        alarm 0;
    };
}
elsif ($pid == 0){
    setpgrp(0,0);
    exec('echo blahblah | program_of_interest');
    exit(0);
}

後、タイムアウトprogram_of_interestに成功したとして殺害されている。

他のヒント

$ PIDを大文字で綴られている - ので、

（strictlyrude27によって）上記のコードは、箱から出して動作しませんでした。 （ところで：もあります： http://www.gnu.org /software/coreutils/manual/html_node/timeout-invocation.htmlする）

ここでのテストでの例です。

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $prg = basename $0;
my $num_secs_sleep = 2;
my $num_secs_to_timeout = 1;
my $orig_program = "sleep $num_secs_sleep; echo \"Look ma, survived!\"";
my $program = $orig_program;
my $expect = "";

if (@ARGV){
  if($ARGV[0] eq "test"){
    test();
    exit 0;
  } elsif (@ARGV == 1) {
    $num_secs_to_timeout = $ARGV[0];
  } elsif (@ARGV == 2) {
    $program = $ARGV[0];
    $num_secs_to_timeout = $ARGV[1];
  } else {
    die "Usage: $prg [ \"test\" | [program] seconds ] "
  }
}

if($orig_program eq $program) {
  if(@ARGV < 2) {
    $expect = $num_secs_to_timeout > $num_secs_sleep ?
      "(we expected to survive.)" : "(we expected to TIME OUT!)";
  }
  print STDERR "sleeping: $num_secs_sleep seconds$/";
}

print STDERR <<END;
  timeout after: $num_secs_to_timeout seconds,
  running program: '$program'
END

if($orig_program eq $program) {
  print STDERR "$expect$/";
}

exit Timed::timed($program, $num_secs_to_timeout);

sub test {
  eval "use Test::More qw(no_plan);";
  my $stdout;
  close STDOUT;
  open STDOUT, '>', \$stdout or die "Can't open STDOUT: $!";
  Timed::timed("sleep 1", 3);
  is($stdout, undef);
  Timed::timed("sleep 2", 1);
  is($stdout, "TIME OUT!$/");
}

################################################################################
package Timed;
use strict;
use warnings;

sub timed {
  my $retval;
  my ($program, $num_secs_to_timeout) = @_;
  my $pid = fork;
  if ($pid > 0){ # parent process
    eval{
      local $SIG{ALRM} = 
        sub {kill 9, -$pid; print STDOUT "TIME OUT!$/"; $retval = 124;};
      alarm $num_secs_to_timeout;
      waitpid($pid, 0);
      alarm 0;
    };
    return defined($retval) ? $retval : $?>>8;
  }
  elsif ($pid == 0){ # child process
    setpgrp(0,0);
    exec($program);
  } else { # forking not successful
  }
}

う～ん コードを作っ, 後に若干の変更あるいは化されたコードを生成するために自分のコードを汎用的な例です。

でないといけないと考:

  1. 削除した場合の問題を作成したサンプルコード -の作成を行う小さなサンプルを実際に行った変更'program_of_interestや$num_secs_to_timeout実質価値ます。ただのサンプルと同じ問題です。
  2. このprogram_of_interestま しかできないマスクを殺9がん、ありがとうございまん。また釣りをした検査コードとシンプルです。ったので、気持ちよかったで試験がwhile(1){print"こんにちは ";睡眠1;}
  3. Something else.

がんばって......

プロセスが無停電でシステムコールでスタックしている場合は、

SIGKILLを無視することができる唯一の方法はあります。状態がDである場合、プロセスを強制終了することができません（ps auxで）ハングアップしたプロセスの状態をチェックします。

また、関数はそれから何かを出力することで呼び出されていることを確認したい場合があります。

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top