Proc :: Daemonの使用中に私のプログラムがファイルに書き込まないのはなぜですか？

Question

私は私のテストコードはどのようなものであるか、Proc::Daemonを使用する前に、いくつかのテストコードを書く：

#! /usr/bin/perl 

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

Proc::Daemon::Init(); 
my $continue = 1; 
$SIG{TERM} = sub { $continue = 0 ; } 

while ($continue) { 
    sleep(5) ; 
    &greeting ; 
} 

sub greeting { 
    open (FH, ">>/home/daogu/foo") or die "can't open it" ; 
    print FH "hello word\n" ; 
    close FH ; 
} 

私はおもちゃのデーモンを起動した後、私は何も、実際に「foo」に書かれていない見つけました。誰がなぜこれが起こるのか説明できますか？ありがとう。

Answer 1

まず、あなたは、9行上の割り当てを終了するためにセミコロンが必要スクリプトとここでそれを逃した。

それ以上に、私はGussが正しいと思っており、あなたには許可の問題があります。確認する方法は次のとおりです。別の端末を開き、topを実行してください。デーモンスクリプトを起動すると、Perlプロセスが表示されます。問題がパーミッションであれば、Perlプロセスが消えるのをすぐに知ることができます。スクリプトはサブルーチンで終了しますが、デーモンはその時点で端末にアクセスできないので、有用なエラーメッセージへの表示は決して表示されません。

このテストを簡単に変更するには、サブルーチンのdie〜に変更します。そうした場合、デーモンは引き続き永久に実行されます（これを確認するには、topを実行している端末を確認してください）。しかし、問題が許可されている場合、はまだに作成または書き込みされるファイルは表示されません。

編集：いいえ、STDERR = dead、サイレントデーモンに対するアクセス権はありません。このバージョンを試してみてください、しかし、あなたがあなたはSTDERRのためのスイッチログインに書き込むことができることを確認してください：

Proc::Daemon::Init(); 
my $continue = 1; 
$SIG{TERM} = sub { $continue = 0 ; }; 

while ($continue) { 
    sleep(5); 
    greeting(); 
} 

sub greeting { 
    open STDERR, '>>', '/Users/telemachus/log' 
     or die "Can't reopen STDERR to log: $!"; 
    open my $fh, '>>', '/usr/local/foo' 
     or warn "Can't open /usr/local/foo for writing: $!"; 
    print $fh "hello word\n"; 
    close $fh; 
} 

あなたのログにこれの全体の多くを参照してくださいする可能性がある：

ことができます書き込み用「がトンオープンFOO：22

Answer 2

あなたのスクリプトは私にはうまく見えます。おそらく問題はファイルアクセス権だけです。ファイルが作成されるはずのディレクトリへの書き込みアクセス権があること、またはファイル自体に書き込みアクセス権があるファイルが既に存在することを確認してください。

私のマシンでスクリプトを実行しても問題なく動作します。私はあなたのプログラムも実行されませんので、私はあなたがいることを持って推測している、と付け加えまで

$SIG{TERM} = sub { $continue = 0 ; }; 

：