day of week

Greetings

Could anyone kindly help me figure out how to add the day of the week to
David Spelts' Traffic Log "Hits By Day"?

I tried the following and could not implement any properly. I am a perl
newbie and would appreciate any help. I imagine this is simple for a perl
guru:

#$dayofweek = Date_DayOfWeek($month,$day,$year);
#my $date = ParseDateString("15 mar 1999");
$date = substr($key,0,6);
print UnixDate($date, "%a");
#$dayofweek = UnixDate($date, "%A");

#my $dt = DateTime->new(year =$year, month =$month, day =$day);
#my $dow = $dt->day_of_week();

#use Date::Calc; # you need this to calculate your date
#my $a = Date::Calc::Date_to_Text(2005, 12, 15);

I am using a Linux server with perl ver 5.8.7

all files required to run the script can be found here:
http://www.spelts.com/trafficlog/

re: day of week

In article <_6Cdnbxo_cjt-ibYnZ2dnUVZ_ualnZ2d@comcast.com>, andy wrote:
What is the purpose of posting commented-out code?
What is in $key?
What module implements UnixDate?
What module implements DateTime?
What module implements day_of_week?
Finally, a clue as to which module you are attempting to use!
So you expect us to go to this website, download the program, install
it on our webserver, and test it? You must not want help very badly.

Maybe this will help:

#!/usr/local/bin/perl
use strict;
use warnings;
use Date::Calc qw(Day_of_Week);
my @days = qw( Sun Mon Tue Wed Thu Fri Sat );
my $dow =Day_of_Week(2005, 12, 15 );
print "Dec 15, 2005 is a $days[$dow]\n";


FYI: this newsgroup is defunct. Try comp.lang.perl.misc in the future
(but if you do, please read and comply with the guidelines for that
group).

Good luck.

Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com

re: day of week

LOL

"Jim Gibson" <jgibson@mail.arc.nasa.govwrote in message
news:290120071035335574%jgibson@mail.arc.nasa.gov. ..