Date and time class
#!/usr/bin/perl -w use Weather::Com::DateTime;
my $gmt_offset = 1; # e.g. for Germany in winter my $datetime = Weather::Com::DateTime->new($gmt_offset); $datetime->set_lsup('02/25/05 11:21 PM Local Time');
print "This is the date '02/25/05 11:21 PM' in Germany:\n"; print "Epoc: ", $datetime->epoc(), "\n"; print "GMT (UTC): ". gmtime($datetime->epoc()). "\n"; print "My local time: ". localtime($datetime->epoc()). "\n"; print "And finally German time: ", $datetime->time(), " o'clock at ", $datetime->date(), "\n\n";
Weather::Com::DateTime objects are used to encapsulate a date or time provided by the \s-1OO\s0 interface (e.g. localtime, sunrise, sunset, etc.).
This is done because there are many ways to use a date or time and to present it in your programs using Weather::Com. This class provides some predefined formats for date and time but also enables you to easily define your own ones.
These objects always represent the local time of a Weather::Com::Location object. That is, if you have a location object for New York City and your server running the weather script is located in Los Angeles, for example, this line
print "Sunrise at: ", $location->sunrise()->time(), "\n";
will print the time of sunrise (in 24h format) in \s-1EST\s0 and not corresponding to the timezone of Los Angeles! If you'd like to now what this is in \s-1GMT\s0 you could call
print "Sunrise at: ". gmtime($location->sunrise()->epoc()). "\n";
or if you want to know when the sun rises at the location in your servers local time than just call
print "Sunrise at: ". localtime($location->sunrise()->epoc()). "\n";
There are two ways to get your own date or time format:
You use the \*(C`formatted()\*(C' method and provide a format string to it.
If you'd like to define your own \*(C`date()\*(C' or \*(C`time()\*(C' method, simply change the corresponding methods. What you can change in which way without destroying the whole class, is described in section \s-1INTERFACE\s0.
You usually would not construct an object of this class yourself. This is implicitely done when you call one of the \s-1OO\s0 interfaces date or time methods.
The constructor can take a \s-1GMT\s0 offset in positive or negative hours.
If one calls the constructor without any \s-1GMT\s0 offset, we assume you want a \s-1GMT\s0 object.
\$1
With this method you can set the date and time using epocs (\s-1GMT\s0) directly.
It returns the currently set epoc seconds (\s-1GMT\s0). This method returns a date or time formatted in the way you ask for and corresponding to the local time of the parent object.
The \*(C`format\*(C' you provide to this method has to be a valid Time::Format format. For details please refer to Time::Format. With this method one can set the date of the object using an input format like \*(C`Feb 13\*(C' which is the 13th of february of the current year.
Using this method, the time is set to 00:00. The year is the current one. With this method one can set the time of the object using an input format like \*(C`8:30 AM\*(C'.
The date is set to the current date of the host the script is running on. With this method one can set the date of the object using the weather.com's special last update format that is like \*(C`2/12/05 4:50 PM Local Time\*(C'. Returns the date in the format \*(C`1. February 2005\*(C'. Returns the time in the format \*(C`22:15\*(C'. Returns the time in the format \*(C`10:15 PM\*(C'. Returns the day of week with like \*(C`Wednesday\*(C'. Returns the day in month. Returns the name of the month. Returns the number of the month Returns the year (4 digits).
Thomas Schnuecker, <[email protected]>
Copyright (C) 2004-2007 by Thomas Schnuecker
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The data provided by weather.com and made accessible by this \s-1OO\s0 interface can be used for free under special terms. Please have a look at the application programming guide of weather.com (<http://www.weather.com/services/xmloap.html>)!