Re: How to get time in seconds from localtime(time) to next 21st date of the month?

[poolpi]

POSIX example

#!/usr/bin/perl 
use strict;
use warnings;
use POSIX (); 


my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = 
  POSIX::localtime(time);

print POSIX::difftime(
    POSIX::mktime(
        0, 0, 12, 21, 
        ( $mday >= 21 ? ( ( $mon + 1 ) % 11 ) : $mon ),
        ( ( $mon == 11 and $mday >= 21 ) ? $year + 1 : $year )
    ),  
    POSIX::mktime( $sec, $min, $hour, $mday, $mon, $year )
  ),  
  "\n";

[doug]

#!/usr/bin/perl

use strict;
use warnings;

use Date::Manip;

my $now = ParseDate 'now';
my $then = ParseDate 'next month';
substr($then,6,2) = 21;
my $delta = DateCalc $now, $then;
my $seconds = Delta_Format $delta, 0, '%sh';
print "seconds=$seconds days=", $seconds/(60*60*24), "\n";

Directly hacking the Date::Manip date format to stick a 21 in the day field is ugly, but couldn't remember how to do it with the API.