Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
    print "$start\n" if $start->hour > 6 and $start->hour < 23;
    $start->add( hours => 1 );
}
  2. or download this
    $set = DateTime::Set->from_recurrence( 
        after => $start, 
...
{
        print $dt->ymd;
};
  3. or download this
    my $set2 = $set->grep( 
        sub {
...
{
        print $dt->ymd;
};