Schedule::Cron

foreachを使ってadd_entry すると指定した時間でちゃんと動かない。（即、jobが実行される）

#!/use/bin/perl
use strict;
use warnings;
use Schedule::Cron;

sub dispatcher{
    print "ID: ", shift, "\n";
    print "Args:","@_", "\n";
}
sub job{
# 実行したい処理
    print "job:$_[0]\n";
}

my $cron = new Schedule::Cron(\&dispatcher);


my @min = (54,55,56);

foreach(@min){
    $cron->add_entry("$_ 23 * * * ", \&job($_));
}
$cron->run();

ひとつひとつadd_entryするとうまく行く。しかし、これでは、不便である。