Re: Date::Manip ParseRecur help needed

Try

my @date = ParseRecur("0:0:1*5:0:0:0","","Jan 1 2020","May 31 2020");
[download]

or (update)

my @date = ParseRecur("every Friday in every month","",
   "First day in Jan 2020",
   "Last day in May 2020");
[download]

poj

Comment on Re: Date::Manip ParseRecur help needed Select or Download Code

Replies are listed 'Best First'.
Re^2: Date::Manip ParseRecur help needed by cormanaz (Deacon) on Jan 11, 2020 at 19:25 UTC
No dice. Running `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"; }` [download] Yields: `Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Wed Jan 01 1000 Mon Jan 01 1100 Sat Jan 01 1200 Fri Jan 01 1300 Wed Jan 01 1400 Mon Jan 01 1500 Sat Jan 01 1600 Fri Jan 01 1700 Wed Jan 01 1800 Mon Jan 01 1900 Sat Jan 01 2000 Fri Jan 01 2100` [download] Replacing the second line with the "update" version gives: `Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Sat Jan 11 2020 Wed Jan 01 1000 Mon Jan 01 1100 Sat Jan 01 1200 Fri Jan 01 1300 Wed Jan 01 1400 Mon Jan 01 1500 Sat Jan 01 1600 Fri Jan 01 1700 Wed Jan 01 1800 Mon Jan 01 1900 Sat Jan 01 2000 Fri Jan 01 2100` [download]	[reply] [d/l] [select]
Re^3: Date::Manip ParseRecur help needed by poj (Abbot) on Jan 11, 2020 at 19:46 UTC
`#foreach my $d (0..$#date) { foreach my $d (@date) { print UnixDate($d,"%a %b %d %Y"),"\n"; }` [download] poj	[reply] [d/l]