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

INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

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するとうまく行く。しかし、これでは、不便である。