DateTime normalize

gwhite has asked for the wisdom of the Perl Monks concerning the following question:

This code:

my( $year, $month, $day, $hour, $minute, $seconds ) = (localtime)[5,4,
+3,2,1,0];
$year  += 1900;
$month += 1;
my $source = DateTime->new(year => $year, 
                           month  => $month,  
                           day => $day, 
                           hour => $hour,   
                           minute => $minute, 
                           second => $seconds, 
                           nanosecond => 1,
                        time_zone => 'America/Chicago');
my $result = $source->clone()
                    ->set_time_zone('Australia/Sydney');

print $result->now();
[download]

produces this error: Program fragment delivered error ``Can't locate object method "_normalize_nanoseconds" via package "2009-08-26T00:59:20" at /usr/local/lib/perl5/site_perl/5.8.8/mach/DateTime.pm line 207.''

sub _normalize_nanoseconds is in the DateTime.pm file. Any suggestions on what I am doing wrong?

g_White

Comment on DateTime normalize Download Code

Replies are listed 'Best First'.
Re: DateTime normalize by toolic (Bishop) on Aug 25, 2009 at 16:08 UTC
I also get the same error that you get when I run your code. I have no experience with DateTime, but looking at its POD, I notice that `now()` is always accessed as: `DateTime->now();` [download] and never the way you are trying to use it: `$dt->now();` [download] Perhaps `now()` (whatever it does) was never meant to be called that way? There seem to be no bug reports for this.	[reply] [d/l] [select]
Re^2: DateTime normalize by ikegami (Patriarch) on Aug 25, 2009 at 17:25 UTC
Correct. `now` creates a new object and initialises it to the current time. `my $dt = DateTime->now(); my $dt = DateTime->now( time_zone => 'local' );` [download] The OP appears to be trying to format the timestamp into a string. For this, he has a number of options. He could construct the formatted timestamp himself. There are getters to get each individual components, there are getters that return the date in a couple of simple formats, and there's a getter that returns the time. He could use `$dt->strftime`, which returns the contained date and/or time in just about any format you can imagine. There's also the option of using a (parsing and) formatting helper module. These are typically named DateTime::Format::<format> (e.g. DateTime::Format::Atom).	[reply] [d/l] [select]
Re: DateTime normalize by Herkum (Parson) on Aug 26, 2009 at 03:26 UTC
now() is a class method not a object method. When you call it with, `$result->now()` [download] It assumes $result is the package and looks at it as a string. A DateTime object which is used in a string context returns the date in a iso8601 format(by default). If you use it as a class method you should not see an error. `my $result = DateTime->now;` [download]	[reply] [d/l] [select]
Re: DateTime normalize by perlkiller (Acolyte) on Aug 26, 2009 at 04:03 UTC
I suggest that you use POSIX::strftime function which uses less coding. `my $now = POSIX::strftime("%Y-%m-%d %H:%M:%S", localtime);` [download]	[reply] [d/l]
Re: DateTime normalize by astroboy (Chaplain) on Aug 26, 2009 at 05:00 UTC
I don't understand why you set $source the way you do. Is this what you want? `my $source = DateTime->now(time_zone => 'America/Chicago');` [download]	[reply] [d/l]