C
ccc31807
my @teams = ("Florida State","Ohio State","Auburn","Alabama" ...)
my %ratings;
#example values of %ratings
$ratings{BCS}{"Florida State"}{...}{...} = 'some value';
$ratings{BCS}{"Ohio State"}{...}{...} = 'some value';
$ratings{BCS}{"Auburn"}{...}{...} = 'some value';
$ratings{BCS}{"Alabama"}{...}{...} = 'some value';
$ratings{BCS}{...}{...}{...} = 'some value';
$ratings{...}{...}{...}{...} = 'some value';
foreach my $bowl (sort keys %ratings)
{
foreach my $team (sort keys %{$ratings->{$bowl}}
{
foreach my $somekey (sort keys %{$ratings->{$bowl}{etc}})
{
#doesn't matter
}
}
}
This sort routine gives values like:
BCS
Alabama
Auburn
Florida State
Ohio State
Harris
etc, etc, and etc.
WHAT I WANT IS THIS !!!!!
BCS
Florida State
Ohio State
Auburn
Alabama
Harris
etc, etc, and etc.
What I'd like to do (but doesn't work) is this:
foreach my $bowl (sort keys %ratings) # this is okay
foreach my $team (sort (@teams) keys %{$ratings->{$bowl})
{
#okay from here on out
}
}
Suggestions?
Thanks very, very much, CC.
my %ratings;
#example values of %ratings
$ratings{BCS}{"Florida State"}{...}{...} = 'some value';
$ratings{BCS}{"Ohio State"}{...}{...} = 'some value';
$ratings{BCS}{"Auburn"}{...}{...} = 'some value';
$ratings{BCS}{"Alabama"}{...}{...} = 'some value';
$ratings{BCS}{...}{...}{...} = 'some value';
$ratings{...}{...}{...}{...} = 'some value';
foreach my $bowl (sort keys %ratings)
{
foreach my $team (sort keys %{$ratings->{$bowl}}
{
foreach my $somekey (sort keys %{$ratings->{$bowl}{etc}})
{
#doesn't matter
}
}
}
This sort routine gives values like:
BCS
Alabama
Auburn
Florida State
Ohio State
Harris
etc, etc, and etc.
WHAT I WANT IS THIS !!!!!
BCS
Florida State
Ohio State
Auburn
Alabama
Harris
etc, etc, and etc.
What I'd like to do (but doesn't work) is this:
foreach my $bowl (sort keys %ratings) # this is okay
foreach my $team (sort (@teams) keys %{$ratings->{$bowl})
{
#okay from here on out
}
}
Suggestions?
Thanks very, very much, CC.