in reply to Re: Human Readable Date
in thread Human Readable Date

I apologize, I've tried a couple things, and was working on the code as I was asking about it, if I can figure out myself, all the better, right? the lack of $s was because I was trying to put the results of the stat into an array and then take the date part and convert it to human readable date/time... that's what's not working... the rest of the code seems to do exactly what it needs... but I have 2 lines: 
printf "%s: Age [%s], size [%d]\n", $farm, ParseDateString("epoch $s->
+mtime()"), $s->size();

[download]
Which gives me a blank area where it prints: Age [ ]

[download]

And the other line 
printf "%s: Age [%s], size [%d]\n", $farm, $s->mtime(), $s->size();

[download]
which prints the unix time in the age: Age [1106013532]

[download]

so the question is why isn't it being formatted into a human readable date?

Replies are listed 'Best First'.
Re^3: Human Readable Date
by davido (Cardinal) on Jan 18, 2005 at 05:54 UTC

    Here's the problem, and you get credit for discovering what I believe to be a bug in Date::Manip (or its documentation).

    The documentation for Date::Manip correctly states that ParseDateString() will not correctly handle a raw number of seconds since epoch. Obviously, seconds since epoch is exactly what $s->mtime() is giving you. So you need a way of getting Date::Manip's ParseDateString() to recognize that what you're handing it is seconds since epoch.

    The POD for Date::Manip goes on to tell you how to do that:

    NOTE: One of the most frequently asked questions that I have gotten is how to parse seconds since the epoch. ParseDateString cannot simply parse a number as the seconds since the epoch (it conflicts with some ISO-8601 date formats). There are two ways to get this information. First, you can do the following:

    $secs = ...         # seconds since Jan 1, 1970  00:00:00 GMT
$date = &DateCalc("Jan 1, 1970  00:00:00 GMT",$secs);

    [download]

    Second, you can call it directly as: 

    $date = &ParseDateString("epoch $secs");

    [download]

    You're attempting to use the second method, and at least for me on Win32 ActivePerl 5.8.6 with Date::Manip version 5.42, that second method simply doesn't work as advertised. It fails to convince Date::Manip that you've handed it a string of seconds since epoch, and the result is that ParseDateString doesn't know what it's looking at, and defaults to returning an empty string.

    I have gone on to confirm that at least the first method suggested in the documentation for Date::Manip does work. That is,

    printf "%s: Age [%s], size[%d]\n", 
    $farm,
    DateCalc( "Jan 1, 1970  00:00:00 GMT",$s->mtime() ),
    $s->size();

    [download]

    Try that on for size. ;)

    Update: Bug alert has been rescinded. See my followup below.


    Dave

[reply]
[d/l]
[select]
      excellent! now how to get a space between the date and time...

      2005011717:58:52 is better than the unix time, but having at least a space between date and time would be useful... Perl ignores whitespace right?

      Aside: Not sure how I would submit the bug report, but you're more than welcome to

[reply]

        Note, it also "doesn't work" to interpolate an object method call within a string like you're doing. In other words, "epoch $s->mtime()" (notice the function call interpolated within quotes) doesn't interpolate as a funciton call, it interpolates as "epoch File::stat=ARRAY(0x28fbe6c)->mtime()". In other words, $s is interpolated, but not dereferenced as a method call. It does work to say ParseDateString( "epoch " . $s->mtime() );

        This means that on second thought, you don't have a Date::Manip bug there, but rather, a bug in your own script, relying on a function of string interpolation that isn't there. See the following example: 

        use strict;
use warnings;

use File::stat;
use Date::Manip;


my $st = stat( 'router.pl' ) or die "Bleah: $!\n";

my $secs = $st->mtime();
print "Your method of interpolation: $s->mtime()\n"; # See?  Wrong.

print "Stat info = ", 
      scalar localtime( $secs ), 
      "\n";  # This is just a reality check.
print "Using the 'epoch' method: ",
      ParseDateString( "epoch $secs" ), 
      "\n";  # This works correctly now.
print "DateCalc method = ", 
      DateCalc( "Jan 1, 1970  00:00:00 GMT", $secs ),
      "\n";  # And this works correctly too.

        [download]

        Hope this helps. :)


        Dave

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom