Re: Date::Manip::Recur is not returning a list

It would always be a good idea to enable strict and warnings.

From looking at the tests it looks like parse returns a true/false value depending on parse success/failure, and not the actual date(s).

$ perl -l
use strict;
use warnings;

use Date::Manip;

my $obj = new Date::Manip::Recur;
my $err = $obj->parse(
  qw(1:2:3:4*12:30:00
    2000010500:00:00
    2000010100:00:00
    2003010100:00:00
    )
);
die $obj->err() if $err;

my @dates = $obj->dates();
foreach my $date (@dates) {
  print $date->value;
}

__END__
200015123000
2001330123000
2002624123000
$
[download]

--
No matter how great and destructive your problems may seem now, remember, you've probably only seen the tip of them. [1]

Comment on Re: Date::Manip::Recur is not returning a list Select or Download Code

Replies are listed 'Best First'.
Re^2: Date::Manip::Recur is not returning a list by desertrat (Sexton) on Jun 24, 2010 at 21:19 UTC
Yes, $recur->parse() only parses the recurrence string, it's $recur->dates() that returns the list of dates. What I don't understand is why it isn't in my case. Clearly it worked for you. When I try to replicate your code example, I get something new! I'm getting a list, but instead of a list of strings it's a list of hashes... #!/usr/bin/perl use strict; use warnings; use Date::Manip; print "Content-type: text/html \n\n"; print "Starting....<p>"; my $freq = "0:1:025:0:0:0"; my $mod = "DWD"; my $sday = "Jan 1 2010"; my $eday = "Dec 30 2010"; my $bday = "Jan 1 2010"; my $recur = new Date::Manip::Recur; my $err =$recur->parse($freq,$bday,$sday,$eday); print "parse err is $err <p>"; my @date = $recur->dates(); my $datenum = @date; print "There are $datenum list members <p>"; foreach my $i (@date){ print "The date is $i->value<p>"; } exit; [download] `Starting.... parse err is 0 There are 12 list members The date is Date::Manip::Date=HASH(0x8404c00)->value The date is Date::Manip::Date=HASH(0x83ff830)->value ...` [download] headdesk*	[reply] [d/l] [select]
Re^3: Date::Manip::Recur is not returning a list by almut (Canon) on Jun 24, 2010 at 21:28 UTC
`print "The date is $i->value<p>";` Method calls don't interpolate. You're interpolating just the value of `$i` (which is an object/hashref), and the `"->value"` prints as is. Try `print "The date is ", $i->value, "<p>";` [download]	[reply] [d/l] [select]
Re^4: Date::Manip::Recur is not returning a list by desertrat (Sexton) on Jun 24, 2010 at 22:38 UTC
Ah, thank you sensei!	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks