Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $ perl -MDateTime::Event::ICal -E '$s = DateTime::Event::ICal->recur(dtstart => DateTime->today, freq => "monthly", byday => "3we", count => 4)->iterator; say $d->month_name ." ". $d->day while $d = $s->next'
- September 19
- October 17
- November 21
- December 19
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement