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에 대한 액세스 권한 = 죽은, 자동 데몬. 이 버전을 시도하지만, 확인 당신 수는 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; 
} 

쓰기 '가 t 개방 foo는 : 22

Answer 2

스크립트가 정상적으로 보입니다. 대부분의 경우 문제는 파일 권한 일뿐입니다. 파일을 만들 디렉토리에 대한 쓰기 권한이 있는지 또는 파일 자체에 대한 쓰기 권한이있는 파일이 이미 있는지 확인하십시오.

내 컴퓨터에서 스크립트를 실행해도 정상적으로 작동합니다. 나는 당신의 프로그램도 실행되지 않을 것이다, 그래서 당신을 추측하고있어,라고 덧붙였다까지

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

가 그에있다 : 첫째