Redis と Perl の開発: 信頼性の高いスケジュールされたタスク スケジューリング システムの構築

use Redis;
use DateTime;
use DateTime::Format::Strptime;

my $redis = Redis->new;
my $parser = DateTime::Format::Strptime->new(
    pattern => '%Y-%m-%d %H:%M:%S',
    on_error => 'croak',
);

# 从Redis中获取存储的任务列表
sub get_tasks {
    my @tasks;
    foreach my $key ($redis->keys('*')) {
        my $task = $redis->hgetall($key);
        push @tasks, $task;
    }
    return @tasks;
}

# 添加新任务到Redis中
sub add_task {
    my ($task_id, $task_name, $task_time) = @_;
    $redis->hmset($task_id, 'name', $task_name, 'time', $task_time);
}

# 从Redis中删除任务
sub delete_task {
    my $task_id = shift;
    $redis->del($task_id);
}

while (1) {
    my @tasks = get_tasks();
    foreach my $task (@tasks) {
        my ($task_id, $task_name, $task_time) = @{$task}{qw/id name time/};
        my $datetime = $parser->parse_datetime($task_time);
        my $current_datetime = DateTime->now;
        if ($datetime <= $current_datetime) {
            # 执行任务逻辑
            print "Executing task: $task_name
";
            delete_task($task_id);
        }
    }
    sleep(1);
}

while (1) {
    print "Please choose an operation: 1 - Add task, 2 - Delete task, 3 - Quit
";
    my $operation = <STDIN>;
    chomp $operation;
    if ($operation == 1) {
        print "Please enter task name: ";
        my $task_name = <STDIN>;
        chomp $task_name;
        print "Please enter task time (YYYY-MM-DD HH:MM:SS): ";
        my $task_time = <STDIN>;
        chomp $task_time;
        my $task_id = 'task:' . time;
        add_task($task_id, $task_name, $task_time);
    } elsif ($operation == 2) {
        print "Please enter task id: ";
        my $task_id = <STDIN>;
        chomp $task_id;
        delete_task($task_id);
    } elsif ($operation == 3) {
        last;
    }
}