Изменение запланированного времени с помощью Schedule :: Cron - PullRequest
Новая
       7

Изменение запланированного времени с помощью Schedule :: Cron

3 голосов
/ 27 января 2011

Я пишу скрипт на Perl, который должен запускаться в одно и то же время каждую ночь, за исключением того, что иногда нужно менять время.Я нашел Schedule :: Cron на CPAN, и он делает то, что я хочу.В соответствии с документацией для метода запуска,

nofork => 1

Не запускайте при запуске планировщика.Вместо этого задания выполняются в рамках текущего процесса.В ваших выполненных заданиях у вас есть полный доступ к глобальным переменным вашего скрипта, и, следовательно, вы можете влиять на другие задания, выполняющиеся в другое время.,Всякий раз, когда я проверяю расположение памяти глобальных переменных, они совпадают, но значение не изменяется при запуске задачи.

Я запускал это как в Windows, так и в Linux, и у меня был кто-то ещепосмотрите на код, чтобы убедиться, что моя логика была правильной.Что мне нужно сделать, чтобы сохранить изменения в глобальных переменных. 

use warnings;
use strict;

use Schedule::Cron;
use Time::localtime;

use constant {
    EVERY_DAY_10PM => '* * * * * 4,16,28,40,52',
    EVERY_DAY_NOON => '* * * * * 0,12,24,36,48',
    EVERY_DAY_2AM => '* * * * * 7,19,31,43,55'
};

############GLOBAL VARIABLES############
our $cron = new Schedule::Cron(\&runUpdate);
our $cronId;
our $updateTimeDirty = 0;
############END GLOBAL VARIABLES############

############MAIN PROGRAM BODY############
$cronId = $cron->add_entry(EVERY_DAY_10PM);#defaults to \&runUpdate
$cron->add_entry(EVERY_DAY_NOON, \&changeTime);
$cron->run(no_fork => 1);
############END MAIN PROGRAM BODY############

sub changeTime {
    our $cron;
    our $cronId;
    our $updateTimeDirty;

    print "updateTimeDirty is $updateTimeDirty\n";
    print "udpateTimeDirty location: " . \$updateTimeDirty . "\n";
    print "cron object: " . \$cron . "\n";

    if ($updateTimeDirty) {
        my $cronEntry = $cron->get_entry($cronId);
        $cronEntry->{time} = EVERY_DAY_2AM;
        $cron->update_entry($cronId, $cronEntry);
    }
    print "\n";
}

sub runUpdate {
    our $updateTimeDirty;

    $updateTimeDirty = 1;
    print "Updating at " . localtime()->sec . " ($updateTimeDirty)\n\n";
}

1 Ответ

7 голосов
/ 27 января 2011

Существует существенная разница между no_fork и nofork.Попробуйте: 

$cron->run(nofork => 1);
...