Basically your code should work, IF your increment doesn't take you over a month boundary. Then it'll screw up. The code needs a test to make sure the day isn't greater than the end_day (if I'm interpreting the problem correctly) only if the month is the end_month.

Something like:

for ($d = $beg_day; ($d <= $end_day && $m == $end_month) || ($m != $en
+d_month && $d <= $days); $d++) {
[download]

And inside the second for loop, you'd have to reset beg_day to 1.

Of course, none of this will work because you have assignments instead of equality tests for the months.

# if ($m = "12") { $days = "31"}
if ($m == 12) { $days = 31 }
[download]

And since this is Perl, those c-style for loops are just ugly.

And also since this is Perl, someone has already done it. In this case, that someone is Marty Pauley, and you can find the wonderful Date::Simple on the CPAN.

This provides a super interface for manipulating dates.

Jasper

additional: why does

for ($d = $beg_day; $month == $end_month ? $d <= $end_day : $d <= $day
+s; $d++) {
[download]

not work? It looks to me like it should?

additional, additional: Did somebody say use strict; ? (There is no $month - a change to $m makes it work)

And of course, this is limiting the whole thing to a single year. One more reason to use someone else's module.