Hi monks, I would like to write a schdule job with Date::Calc's, I would like to request more examples on Holiday calculation without Date::Calc::Calendar. Since the list of holiday are different from the calendar profile.

I just take a looking for the example in the doc, but I don't know how to modify the code to fulfill the case.

use Date::Calc qw( Days_in_Month Add_Delta_Days Day_of_Week );

 $day = Days_in_Month($year,$month);
 while (1)
 {
     while ($holiday[$year][$month][$day])
     {
         ($year,$month,$day) =
             Add_Delta_Days($year,$month,$day, -1);
     }
     $dow = Day_of_Week($year,$month,$day);
     if ($dow > 5)
     {
         ($year,$month,$day) =
             Add_Delta_Days($year,$month,$day, 5-$dow);
     }
     else { last; }
 }
[download]

Thanks a lot