day of week

[andy]

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,$ye ar);
#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::Dat e_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/

[Jim Gibson]

Re: day of week

In article <_6Cdnbxo_cjt-ibYnZ2dnUVZ_ual nZ2d@comcast.co m>, andy wrote:

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,$ye ar);
#my $date = ParseDateString ("15 mar 1999");

What is the purpose of posting commented-out code?

$date = substr($key,0,6 );

What is in $key?

print UnixDate($date, "%a");

What module implements UnixDate?

#$dayofweek = UnixDate($date, "%A");
>
#my $dt = DateTime->new(year =$year, month =$month, day =$day);

What module implements DateTime?

#my $dow = $dt->day_of_week( );

What module implements day_of_week?

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

Finally, a clue as to which module you are attempting to use!

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/

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(20 05, 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

[andy]

Re: day of week

LOL

"Jim Gibson" <jgibson@mail.a rc.nasa.govwrot e in message
news:2901200710 35335574%jgibso n@mail.arc.nasa .gov...

In article <_6Cdnbxo_cjt-ibYnZ2dnUVZ_ual nZ2d@comcast.co m>, andy wrote:
>

>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,$ye ar);
>#my $date = ParseDateString ("15 mar 1999");

>
What is the purpose of posting commented-out code?
>

>$date = substr($key,0,6 );

>
What is in $key?
>

>print UnixDate($date, "%a");

>
What module implements UnixDate?
>

>#$dayofweek = UnixDate($date, "%A");
>>
>#my $dt = DateTime->new(year =$year, month =$month, day =$day);

>
What module implements DateTime?
>

>#my $dow = $dt->day_of_week( );

>
What module implements day_of_week?
>

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

>
Finally, a clue as to which module you are attempting to use!
>

>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/

>
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(20 05, 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