blob: 4907344ee986db6f68dd038a4d54dccc98ba8343 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env perl
use Date::Manip;
my $date = Date::Manip::Date->new;
$date->parse("2020-08-24");
my $limit = Date::Manip::Date->new;
$limit->parse("2020-12-09");
while ($date->cmp($limit) < 1) {
if (grep $_ eq $date->printf("%w"), 1, 3, 5) {
print $date->printf("%A %E %B\n:\n\n");
}
my $delta = $date->new_delta;
$delta->parse("in 1 day");
$date = $date->calc($delta);
}
|