in reply to 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]

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:0*25: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]
      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]

        Ah, thank you sensei!

[reply]

In Section Seekers of Perl Wisdom