Hi all
I my thanks to all whom have tried to help me earlier, but alas, I still
cant seem to get this right.
I know this gonna kick me because it will be a stupid small mistake.
my ($ref_hash, $fileName) = @_;
foreach my $roomCode ( keys %{ $ref_hash->{$fileName} }){
foreach my $rmData ( keys %{
$ref_hash->{$fileName}->{$roomCode} } ){
print $ref_hash->{$fileName}->{$roomCode}->{$rmData}; #Nothing
gets displayed
}
print does not display anything.
Here is my Data::Dumper info
$VAR1 = {
'Grac01' => {
'StndRm' => 'Standard Room',
'Suite' => 'Suite',
'Pent' => 'Penthouse'
},
If anyone could be so kind to help, it would greatfully be appreciated.
Kind Regards
Brent Clark
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
