バックグラウンドでPerlスクリプトを実行してコマンドを送信してください

Question

特定の時間に特定のドメインへのリクエストを防ぐスクリプト（ ）を作成し、同じ時間内に特定のプロセスを強制終了します。

私はコマンドを送ることができるデーモンのようなものを持っていたいと思います。 例えば、私がこだわっている何some_script start、 または新しいドメイン/プロセスを追加するような何かによって作成されるデーモンなど

を開始するには、some_script timeleftで、残っているどのくらいの時間 を表示するにはon：

• デーモンの作成方法は？私は私が私が私の説明で十分に明らかにされている願っていますコマンドライン

からデーモンにコマンドを送信する方法がわからない

thisを見てきました。

Answer 1

私はおそらくあなたが参照答えの骨を使用しますが、追加します。

• IPの設定ファイルを抑制するために、再読み込み、および、

• SIGHUPのハンドラを残っている時間を報告するSIGUSR1のハンドラ。だから、

、それはおおよそ次のようになります。

#!/usr/bin/perl 

use strict; 
use warnings; 
use Proc::Daemon; 

Proc::Daemon::Init; 

my $continue = 1; 
################################################################################ 
# Exit on SIGTERM 
################################################################################ 
$SIG{TERM} = sub { $continue = 0 }; 

################################################################################ 
# Re-read config file on SIGHUP 
################################################################################ 
$SIG{HUP} = sub { 
    # Re-read some config file - probably using same sub that we used at startup 
    open(my $fh, '>', '/tmp/status.txt'); 
    print $fh "Re-read config file\n"; 
    close $fh; 
}; 

################################################################################ 
# Report remaining time on SIGUSR1 
################################################################################ 
$SIG{USR1} = sub { 
    # Subtract something from something and report difference 
    open(my $fh, '>', '/tmp/status.txt'); 
    print $fh "Time remaining = 42\n"; 
    close $fh; 
}; 

################################################################################ 
# Main loop 
################################################################################ 
while ($continue) { 
    sleep 1; 
} 

をあなたは、その後にHUPシグナルやUSR1シグナルを送信します：

pkill -HUP daemon.pl 

または

pkill -USR1 daemon.pl 

アウトについては/tmp/status.txtを見てくださいデーモンから出してください。上記のコマンドは、Perlスクリプトをdaemon.plとして保存したと仮定しています。別の名前を使用した場合は調整してください。

また、起動時にデーモンがpidをファイルに書き込んで、pkillに-Fオプションを使用することもできます。

Answer 2

デーモンと通信するにはいくつかの方法がありますが、UNIXドメインソケットが最も理にかなっていると思います。 perlでは、IO::Socket::UNIXは見るべきことになります。