今日から後ろ10日間、とか、今日から前 10 日間の日付を欲しいときイテレータを使うとラク。 #!/usr/bin/env perl use strict; use warnings; use 5.010; use Time::Piece; use Time::Seconds; my $iterator = date_iterator( base => Time::Piece->new, dur…