Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Date operations

by grep (Monsignor)
on Aug 11, 2002 at 22:49 UTC ( #189350=note: print w/ replies, xml ) Need Help??


in reply to Date operations

You should really think about using Date::Calc and/or Date::Manip. These might be overkill for this particular task but are lifesavers if you have to do anything else with dates.

You could also look at Time::Local which does the opposite of localtime

another (inelegant) solution would be to take the time() and add the seconds to get to the proper date from today

localtime(time() + (60 * 60 * 24 * 4) + (60 * 60 * 24 * $days)) # add +4 days localtime(time() - (60 * 60 * 24 * 7) + (60 * 60 * 24 * $days)) # subt +ract 1 week


grep
Just me, the boy and these two monks, no questions asked.


Comment on Re: Date operations
Select or Download Code
Re: Re: Date operations
by kidd (Curate) on Aug 11, 2002 at 23:16 UTC
    You should really think about using Date::Calc and/or Date::Manip. These might be overkill for this particular task but are lifesavers if you have to do anything else with dates.

    The reason I liked the current way Im making the operations is that I dont have to get or install any modules...wich are a pain in the a** to configure in my hosting service...

      pain in the a** to configure in my hosting service...

      One (including myself) might argue that recreating any portion of Date::Calc or Date::Manip is a pain in the a$$, since it is already correctly done for you.

      I think you will agree with me the first time you forget one of the rules for leapyears or your client says he/she wants 30 days to not including weekends ;-)

      You most likely have seen this already but, if it helps tachyon has a tutorial on this.



      grep
      Just me, the boy and these two monks, no questions asked.

      from the Perl CGI Programming FAQ:

      (if you don't) have access to install these modules with the other Perl library files, you can still use it by placing the module in a convenient place and adding the following to your script: BEGIN { unshift (@INC, "/your/dir/favorite/place"); }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://189350]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2014-12-29 04:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (184 votes), past polls