読者です 読者をやめる 読者になる 読者になる

ファイルが更新されたら勝手にspork -makeするやつ

perl

自前のプレゼンツールを作ろうといつも思いつつ結局時間に追われてついついSporkを使ってしまっています。

しょっちゅうファイル更新するたびにspork -make打つのもめんどくさいので、ちょっと書いてみました。最近地味にFilesys::Notify::Simple期です。

use strict;
use warnings;
use Filesys::Notify::Simple;
use Spork;
use lib 'lib';

while ( 1 ) {
    my $watcher = Filesys::Notify::Simple->new(['.']);
    $watcher->wait(sub {});
    Spork->new->load_hub->command->process('-make', @ARGV);
}

https://gist.github.com/730884