http://qs321.pair.com?node_id=1096632


in reply to Re: week of the year
in thread week of the year

I'm going to go ahead and assume that you meant today ;)
utilitarian@busybox ~/$ perl -MTime::Piece -E 'say Time::Piece->strpti +me("080614", "%m%d%y")->week'; 32

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."