#!/usr/bin/perl
use Date::Manip;
@date = ParseRecur("0:0:1*1,3,5:0:0:0","May 25 2010","6/1/2010","8/30/2010");# every MWF between the two dates.
foreach $i (@date){
print "The date is $i\n";
}
exit;

##</code><code>##

The date is 2010060200:00:00
The date is 2010060400:00:00
The date is 2010060700:00:00
The date is 2010060900:00:00
The date is 2010061100:00:00
The date is 2010061400:00:00
The date is 2010061600:00:00
The date is 2010061800:00:00
The date is 2010062100:00:00

##</code><code>##

#!/usr/bin/perl

use Date::Manip;

print "Starting....\n";

$recur = new Date::Manip::Recur;

$start = $recur->new_date();
$end   = $recur->new_date();
$base = $recur->new_date();

$err=$start->parse("Jun 1 2010");
print "start err is $err \n";

$err=$end->parse("Aug 30 2010");
print "end err is $err \n";

$err=$base->parse("May 25 2010");
print "base err is $err \n";

$err=$recur->frequency("0:0:1*1,3,5:0:0:0");
print "freq err is $err \n";

@date = $recur->dates();
print "dates err is $err \n";

foreach $i (@date){
print "The date is $i\n";
}
exit;

##</code><code>##

Starting....
start err is 0 
end err is 0 
base err is 0 
freq err is 0 
dates err is 0