類似於nodemon的工具，用於perl

Question

是否有像nodemon那樣的東西，用於監視文件更改並重新啓動perl腳本？

我的Perl腳本只是一個while循環。

我試圖谷歌它，但結果要麼是關於mod_perl或無關緊要。

任何想法？

我使用的是Mac OS

Answer 1

我不知道類似Perl nodemon工具的，除非有一個當它改變時一般重新啓動任何程序。這是我碰撞的一個。

#!/usr/bin/env perl 

use strict; 
use warnings; 
use v5.10; 

use File::Monitor; 
use Child qw(child); 

sub start_program { 
    my $program = shift; 

    return child { 
     exec $^X, $program, @ARGV; 
    }; 
} 

sub restart_program { 
    my($program, $child) = @_; 

    $child->kill("TERM"); 

    return start_program($program); 
} 

sub monitor_program { 
    my $program = shift; 

    my $monitor = File::Monitor->new; 

    my $child = start_program($program); 

    say "PID: ".$child->pid; 

    $monitor->watch($program, sub { 
     $child = restart_program($program, $child); 
    }); 

    while(1) { 
     sleep 1; 
     $monitor->scan; 
    } 
} 

monitor_program(shift); 

這可以通過做出的東西鉤住OS X文件系統事件服務更換File::Monitor更有效。