cgi Calendar continued.

[oryann9]

My goal is to correlate the data in 2 arrays into a
HoH or a HoA so that when I print this data in an HTML
table so it comes out correctly.
 

snippet...

my (@weeks, @weeks1, @weeks_AoA,) = ((),(),());

## Set up array with dates minus 15 days and plus 15
days from current date ##

foreach $day ('-15' .. '15') {
 run_statement( select date_format(date_add(curdate 
(), interval '$day' day), '%b %e, %Y'); );
push (@weeks, $sth-fetchrow);
} 

## Match up dates with dayofweek numbers with above
array ##

foreach $day1 ('-15' .. '15') {
 run_statement( select dayofweek(date_add(curdate(), 

interval '$day1' day)); );
push (@weeks1, $sth-fetchrow);
}

I then setup this hash:

my %WeekDays = (
1 = Sunday, 
2 = Monday,
3 = Tuesday, 
4 = Wednesday,
5 = Thursday, 
6 = Friday,
7 = Saturday
);

But my problem is figuring out which data structure to
use considering the following: correlate/match-up the
two array's data elements. For example, in @week an
element is 'Mar 9 2007' and its correlated element in
@weeks1 is '6' and 6 in %WeekDays is 'Friday.'
I see a HoH or a HoHoH ?

## To build:
my %HoH = ();
foreach my $dates (@weeks) {
foreach my $daynums (@weeks1) {
$HoH{$dates} = {
   daynums   = $daynums
   };
}
}

## To print:
for my $a ( keys %HoH ) {
for my $e ( keys %{ $HoH{ $a } } ) {
print $HoH{ $a }{ $e };
}
}

but its printing all 7's and 7 = Saturday in ODBC
standards.

Any advise?

thank you




 

It's here! Your new message!  
Get new email alerts with the free Yahoo! Toolbar.
http://tools.search.yahoo.com/toolbar/features/mail/

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/

Re: cgi Calendar continued.

[Jeff Pang]

## To build:
my %HoH = ();
foreach my $dates (@weeks) {
foreach my $daynums (@weeks1) {
$HoH{$dates} = {
   daynums   = $daynums
   };
}
}



Hello,

The codes above for building a hash is somewhat not correct.
When you loop through @weeks1,you use {daynums,$daynums} as the value for the 
hash's key $date.
But have you noticed that,each time you set the value you have overwrited the 
before value?
So you just only get the last element in the @weeks1 as hash's value for all 
the hash's keys.

From date getting week,I think it's maybe good to use Perl's localtime() 
subroutine or Time::Local module.:)






--
http://home.arcor.de/jeffpang/

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/