mschilli / app-daemon Goto Github PK

#!/usr/bin/env perl
use warnings;
use v5.12;

use App::Daemon qw( daemonize );

daemonize();

while(1) {
    sleep(1);
}

Pid file:    ./pl.pid
Pid in file: 1080593
Running:     yes

$ <path>/pl.pl stop
$ <path>/pl.pl status
---
Pid file:    ./pl.pid
No pidfile found

Pid file:    ./pl.pid
Pid in file: 1080593
Running:     no
Name match:  0

#!/usr/bin/env perl                                  
use warnings;                                        
use v5.12;                                                                                                

use App::Daemon qw( daemonize );
$App::Daemon::pidfile  = qq|$0.pid|;                 
use POSIX qw(strftime);                              
use Time::Interval;                                                                                       

daemonize();
my $now = strftime("%F %T %Z", localtime);           
my $diff = getInterval(                                  
    $now,
    $now,
    'small'                                              
);

# <script> -X
Cannot remove /root/bin/pl.pl.pid at /root/.perlbrew/libs/perl-5.35.0@535/lib/perl5/App/Daemon.pm line 212. 
                                                   
Can't locate Date/Parse.pm:   /root/.perlbrew/libs/perl-5.35.0@535/lib/perl5/x86_64-linux/Date/Parse.pm: Permission denied at /root/.perlbrew/libs/perl-5.35.0@535/lib/perl5/Time/Interval.pm line 38.