You mention that you want Monday through Sunday ... this code does so, but i usually use Sunday through Saturday. Just add one to day_of_week() to achieve this.#!/usr/bin/perl -l use strict; use warnings; use Time::Piece; my $t = localtime; $t -= Time::Piece::ONE_DAY * $t->day_of_week; print $t += Time::Piece::ONE_DAY for 1..7;
jeffa
L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)
In reply to Re: Date::Calc question.
by jeffa
in thread Date::Calc question.
by data67
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |