It looks like your proglet is doing what you're telling it to do. Or, am I missing something?

Hello, Thanks for the response. I have a question, how do we get 13 * 24 * 60 * 60 from 1123200. I was not sure how that was done. Thanks.

13*24*60*60 is (days * hours/day * minutes/hour * seconds/min). So your script is taking the current date/time, adding 13 days to it, and then printing the two digit month and year of that date/time. Since 13 days from now is still December 2007, you're getting 0712 (instead of the 0801 you evidently expected).

time is in seconds, so he is just converting 1123200 seconds into days
11123200 / 60 sec / 60 min / 24 hours = 13 days.
Or 13 days * 24 hours * 60 min * 60 sec = 1123200 seconds.

13 days * 24 hours * 60 minutes * 60 seconds = 1123200 seconds

Now I know I'm missing something:(

From your code it seems you're trying to add 13 days to the current date, and get the month and year of that date.

I recommend Date::Simple for calculations like this, it is fairly stable and has a really simple interface.

sleep 1123200;
billdate= strftime( "%y%m", localtime( time ) ) . '01';
[download]

That answer was straight from the Perl Infrequently Asked Questions list.

90% of every Perl application is already written. ⇒

dragonchild

i never knew...now i know....scary
the hardest line to type correctly is: stty erase ^H

use DateTime;

my $dt = DateTime->now(time_zone => 'UTC');
$dt->add( days => 13);    

print  substr( $dt->year, -2 ), 
       $dt->month < 10 ?  '0' :  '', 
       $dt->month;
[download]

perl -MDateTime -e 'print
                    unpack( 
                           "x2A2xA2",
                           DateTime->now(time_zone => 'UTC')
                           ->add(days => 13)
                    );'
[download]