Help for this page

Select Code to Download


  1. or download this
    use Date::Manip;
my @date = ParseRecur("0:0:1*5:0:0:0","","Jan 1 2020","May 31 2020");
foreach my $d (0..$#date) {
    print UnixDate($d,"%a %b %d %Y"),"\n";
}
  2. or download this
    Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
...
Mon Jan 01 1900
Sat Jan 01 2000
Fri Jan 01 2100
  3. or download this
    Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
...
Mon Jan 01 1900
Sat Jan 01 2000
Fri Jan 01 2100