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

Hello, I'm using the following code: 
(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my
+ $yday, my $isdst ) = localtime(time);
my $adjustedYear = $year + 1900;
my $adjustedMon  = $mon + 1;
my $timestamp = sprintf( "%4.4d%2.2d%2.2d%2.2d%2.2d_%d",
             $adjustedYear, $adjustedMon, $mday, $hour, $min, $$ );

[download]
this works fine...except when I use 
use Time::localtime;

[download]
Then I get 1900.... Doesn't make sense Thanks !!!

Replies are listed 'Best First'.
Re: getting system time
by choroba (Cardinal) on Dec 02, 2011 at 16:29 UTC
    Instead of
    (my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my
+ $yday, my $isdst ) = localtime(time);

    [download]
    (which can be written as 
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = l
+ocaltime(time);

    [download]
    ) under Time::localtime you should use 
    my $localtime = localtime(time);
my $sec = $localtime->sec;
my $min = $localtime->min;

    [download]
    etc.
[reply]
[d/l]
[select]
Re: getting system time
by TJPride (Pilgrim) on Dec 02, 2011 at 16:25 UTC
    For whatever reason, it changes the return value from localtime() from an array to an array ref. Change to this instead:

    (my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst ) = @{localtime()};

    There are probably better ways to manage dates, but I don't have the patience to explain at the moment.

[reply]
[d/l]

      The reason, according to perldoc Time::localtime, is that the module replaces the core localtime function which returns an array with one that returns a Time::tm object instead. So you're expected to use the object's methods to get at its values. In this case, since the object is a blessed array reference, treating it as an ordinary array reference also works, but it probably isn't safe to assume it always will.

      Aaron B.
      My Woefully Neglected Blog, where I occasionally mention Perl.

[reply]
[d/l]
[select]
Re: getting system time
by Anonymous Monk on Dec 02, 2011 at 16:12 UTC

    Doctor Doctor it hurts when I do this, what should I do?

    Don’t do it if it hurts

[reply]
      I need to use 
      use Time::localtime;

      [download]
      because later in the script, I am using 
      $dateModified = ctime($attrs->mtime);

      [download]
      to get the timestamp of a file.

      And if don't have the 'use Time' defined, then I get a 'Undefined subroutine &main::ctime called' error

      So not just a question of If it hurts don't do it
[reply]
[d/l]
[select]

        Try not importing stuff from the module, i.e.

        use Time::localtime ();   # note the parentheses

        [download]

        and then call the function fully qualified 

        $dateModified = Time::localtime::ctime($attrs->mtime);

        [download]

        (Or import only ctime, which should not clash.)

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom