in reply to Re^2: List of days in current month
in thread List of days in current month

Which ones dont?

Replies are listed 'Best First'.
Re^4: List of days in current month
by choroba (Cardinal) on Mar 14, 2014 at 15:34 UTC 
    #!/usr/bin/perl
use warnings;
use strict;

use DateTime;

my $dt = 'DateTime'->new(
             year      => 2014,
             month     => 3,
             day       => 14,
             hour      => 0,
             minute    => 0,
             second    => 0,
             time_zone => 'America/New_York',
         );

while (1) {
    my $yesterday = $dt->clone;
    $yesterday->subtract(days => 1);
    my $diff = $dt->epoch - $yesterday->epoch;
    $dt = $yesterday;
    print "$dt\t$diff\n";
    last if $diff != 60 * 60 * 24;
}

    [download]
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
      got it thank you
[reply]
Re^4: List of days in current month
by runrig (Abbot) on Mar 14, 2014 at 15:21 UTC
    In the US, we just lost an hour this last weekend due to going off Daylight Savings Time. In the UK, they're doing it later this month. All so some guy could get more tee time...
[reply]
      ty for explanation
[reply]

In Section Seekers of Perl Wisdom