Как я могу повторить цикл for для каждых семи дней

Question

Как написать цикл for в perl, который должен выполнять блок операторов каждую неделю. Например: Время начала: 00:00:00 Понедельник, затем снова цикл должен начинаться в 00:00:00 понедельника на следующей неделе.

Спасибо за любой ввод.

С уважением, Chandu

Answer 1

Здесь вы можете сделать таймер, который работает в течение недели. Он не связан в день недели, но вы можете начать его в понедельник, и он будет запущен снова в следующий понедельник.

use strict; 
use warnings; 

use Time::HiRes qw(gettimeofday tv_interval usleep); 
# 1 week equal 168 hr 
for(;;) { 
    # put your codes here 
    # ... 

    for my $h (0..167) { 
     for my $m (0..59) { 
      for my $s (0..59) { 
       for my $ms (0..999) { 
        print "$h:$m:$s:$ms\n"; 
        usleep(1000); 
        $ms += 0.001; 
       } 
      } 
     } 
    } 
} 

Answer 2

cron (или любой другой планировщик задач операционная система использует) является правильным инструментом для этого, а не Perl.

Однако в простейшем случае это можно сделать в Perl с sleep 604800;, который будет ждать 604 800 секунд (т. Е. 7 дней), прежде чем перейти к следующему утверждению. Нет циклов.