プログラムと並行して動作する子プロセスとしてタイムカウンタを作成するにはどうすればよいですか？

Question

作業中のプログラムの一部と並行して画面上を刻むライブタイムカウンタを作成するにはどうすればよいですか？

のは、私は数分のカップルのための内部プログラムを実行し、次の小さなサブコードとしましょう：最後にそれを待っている間、私は出力がランニングをstdoutにフォークか何かを開くことができ、

system (`compile command`); 
exec "simu -sh"; 

を時刻？

もう1つ質問がありますが、スクリプトの残りの部分を傷つけることなくALARMカウンタを画面に出力するにはどうすればよいですか？

Answer 1

あなたの質問に文脈を与えることは重要です。あなたはすでに親と子の2つのプロセスを持っています。子はexecと置き換えられているので、子を使って監視することはできませんが、親は利用可能です。 waitpidコールをノンブロッキングにするだけです（つまり、正常に終了するまで待つことはなく、すぐに失敗します）。また、これはevalとalarm機能の必要性を取り除きます：スレッドとしてそれを産卵して、設定する値を待っている（あなたがPerlを有効にスレッドを持っていると仮定）について

#!/usr/bin/perl 

use strict; 
use warnings; 
use POSIX ":sys_wait_h"; 

my $timeout = 180; 
my $program = "simulator --shell"; 

die "could not fork: $!" unless defined (my $pid = fork); 

#this is the child process 
unless ($pid) { 
    exec $program; 
    #if we reach this code the exec failed 
    die "exec of simulator failed: $!"; 
} 

#this is the parent process 
my $tries = 0; 
#check to see if $pid is done, but don't block if it isn't 
until (waitpid(-1, WNOHANG) == $pid) { 
    #put what you want to print while waiting here: 
    print scalar localtime, "\n"; 

    if ($tries++ > $timeout) { 
     warn "timed out, sending SIGKILL to simulator\n"; 
     kill 9, $pid; 
     waitpid($pid, 0); 
     last; 
    } 
} continue { 
    sleep 1; 
} 

Answer 2

方法：

を

# Modules to be used 
use strict; 
use warnings; 
# Threads module 
use Thread; 

# Share out the variable so it can be set and 
# view by main thread and spawned thread 
my $value:shared = 0; # value to be set when completed 

# Create a thread with a subroutine to compile and set the passed in reference 
# to 1 when complete. Pass in the reference to value 
my $t = Thread->new(sub {`compile command`; ${$_[0]} = 1;}, \$value); 

# Counter to count 
my $count = 0; 

# Loop until the routine set the value 
while ($value == 0) 
{ 
    # Increment the count and print it out. 
    $count++; 
    print "$count\n"; 
    # Sleep for second to let the other thread process 
    sleep 1; 
} 
# Thread as completed so join back together 
$t->join(); 

# Indicate items have completed. 
print "Done $count\n"; 

Windows XPでは、ActiveState PERL 5.10で上記の例を実行しました。

これは、 にかかる時間を秒単位で示します。うまくいけば、より細かい粒度を探しているわけではありません。あなたは実際の時間を望むなら、カウンターの代わりにlocaltime（）を使うことができます。

参照がロックされていないため、ルーチンの最後に設定されていれば、それが完了してバックアップに参加するだけです。

perl threadsの詳細については、こちらをご覧ください。

Perlmonksをご覧ください。