Help for this page

Select Code to Download


  1. or download this
    use Date::Set;

...

my @occurs = $set->during (at => $period)->list;
print "occurences on ", join (" ,", @occurs), "\n";
  2. or download this
    use Date::Set;

...
foreach (@list) {
  print "$_\n";
}
  3. or download this
    $a = Date::Set->event( rule => 'FREQ=YEARLY;INTERVAL=2' );
$a->during( start => '20030801', end => '20200801' );
print $a . "\n";