social.pl
Ho mandato in mailing list la proposta di social meeting periodico, da farsi il secondo mercoledì del mese. Ok, ma come si fa a sapere in qualche giorno cade? Date::Manip:
use strict;
use warnings;
use Date::Manip;
print "Firenze.pm Meeting:\n";
my @dates = ParseRecur(
"2nd wednesday of every month in 2006"
);
foreach my $d (@dates) {
print UnixDate($d, "\t%b %e, %Y\n");
}