japhy — Tue, 21 Dec 1999 14:42:00 +0000

NO!!!! Fairhousing, NOW would be a good time
to check that all of your Perl programs are
Y2K compliant.

The value of the year that localtime returns
is the year - 1900. So next year, it will
return the number 100.

Your program would print the date as
something like "01/01/100" instead of
"01/01/00". Please consider a fix (such as
$year %= 100). Also, the only proper way to
restore the ACTUAL year is to add 1900.
Nothing else.

As for code to print the date in your pretty
format, I suggest this... oh, I don't know
the NAMES of all 24 time zones (there's some
research for someone to do) and you didn't
say if you want the number of the day
0-padded (I assumed not). I'll explain how
the @tz array must be filled below.

Code Sample:
sub myfmt { my @mon = qw( January February March April May June July September October November December ); my @tz = qw( ); # fill this appropriately my ($min,$h,$m,$d,$y) = (localtime)[1..5]; my $offset = $h - (gmtime)[2]; my $mode = "AM"; if ($h == 0) { $hr = 12 } elsif ($h == 12) { $mode = "PM" } elsif ($h > 12) { $h -= 12; $mode = "PM" } sprintf "%d:%02d %s %s, %s, %d, %d", $h, $min, $mode, $tz[$offset], $mon[$m], $d, $y + 1900; }

Now let me explain how the @tz array should
be filled. We know that EST is GMT -5 hours,
so $offset would be the number -5.
Therefore, in this array of 24 strings,
element 0 would be "GMT" and element -5 would
be "EST". Translating the negative notation
for positive notation, we get element 19
being "EST".

Hope this helps.

------------------
--
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve

[This message has been edited by japhy (edited 21 December 1999).]

fairhousing — Tue, 21 Dec 1999 10:29:00 +0000

hope it helps!

Code Sample:
sub clock { ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); if ($sec < 10) { $sec = "0$sec"; } if ($min < 10) { $min = "0$min"; } if ($hour < 10) { $hour = "0$hour"; } if ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } $month = ($mon + 1); @months = ("January","February","March","April","May","June","July","August","September","October","November","December"); $date = "$hour\:$min\:$sec $month/$mday/$year"; }

------------------
Get paid to surf, email, and everything else online! 75 hrs a month at 55+ cents an hour! Beats AllAdvantage Easily. CLICK 4 DETAILS

Rob Pengelly — Mon, 20 Dec 1999 14:05:00 +0000

If you could post it that would be great thanks.

------------------
An ostrich's eye is bigger than it's brain.

fairhousing — Mon, 20 Dec 1999 11:05:00 +0000

i've got one that does it, but in military time and no am/pm. if interested let me know.

------------------
Get paid to surf, email, and everything else online! 75 hrs a month at 55+ cents an hour! Beats AllAdvantage Easily. CLICK 4 DETAILS