Re: Simple date calc

Ok here is a simple example of part of what I am trying to do

#!/usr/local/bin/perl

use Getopt::Std;
use Time::Local;
use Time::localtime;

$offset = time();
@seg = localtime($offset);
print "--$offset--$seg--@seg--\n\n";
[download]

Comment on Re: Simple date calc Download Code

Replies are listed 'Best First'.
Re: Re: Simple date calc by tommyw (Hermit) on Dec 19, 2002 at 16:58 UTC
This is misbehaving (in the sense of not doing what you want; in the strictly technical sense, it's behaving perfectly), because you're assigning `localtime` to an array. When you do this, you get a nine element array with the following components: `($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)` On the other hand, if you assigned it to a scalar, then you'd get a printable string: `$yesterday=localtime(time()-86400); print $yesterday;` [download] Wed Dec 18 16:58:19 2002 -- Tommy Too stupid to live. Too stubborn to die.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Simple date calc
by tommyw (Hermit) on Dec 19, 2002 at 16:58 UTC

This is misbehaving (in the sense of not doing what you want; in the strictly technical sense, it's behaving perfectly), because you're assigning localtime to an array. When you do this, you get a nine element array with the following components: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)

On the other hand, if you assigned it to a scalar, then you'd get a printable string:

$yesterday=localtime(time()-86400);
print $yesterday;
[download]

--
Tommy
Too stupid to live.
Too stubborn to die.

[reply]
[d/l]
[select]