linux - 如何获取特定年份输入的所有星期一(日期)

Question

用 linux 命令或 perl ,

如何获取2010年所有星期一的日期

例如:

20100104 ------ 这是 2010 年 1 月星期一 20100111 20100118 20100125

----

---

---

20101206 20101213 20101220 20101227 ------ 这是 2010 年 12 月星期一

Answer 1

你可以使用 DateTime :

#!/usr/bin/env perl

use strict;
use warnings;

use DateTime;

my $year = 2010;
my $dt   = DateTime->new(
    'year'  => $year,
    'month' => 1,
    'day'   => 1,
);

# find first Monday
while ( $dt->day_name() ne 'Monday' ) {
    $dt->add( 'days' => 1 );
}

while ( $dt->year() == $year ) {
    print $dt->strftime("%Y%m%d\n");
    $dt->add( 'weeks' => 1 );
}