I have used Date::Manip to find whether the current time is "working day and time". I did it in the following method,
# find whether the today is working day ?
&Is_WorkDay(&ParseDate(&DateCalc("today", "+9 hours")))
# find whether the current time is within current working day ?
# find current hour with localtime function.
print "yes" if ( $cur_hr > 9 && $cr_hr < 17 )
But I understand there is simpler way with Date::Manip
With Date_Init - set workdaybeginning and end.
But again how to check get the current time ( do i have to still use localtime ? ).
Am looking for something simple - a one line code which says whether current time and date is business time or not ! Can anybody did it already ?- please help me.