Brent Clark wrote:
> Hi all
Hello,
> 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.
$ perl -e'
my $ref_hash = {
Grac01 => {
StndRm => "Standard Room",
Suite => "Suite",
Pent => "Penthouse",
},
};
my $fileName = "Grac01";
for my $roomCode ( keys %{ $ref_hash->{ $fileName } } ) {
print "$roomCode\t$ref_hash->{$fileName}{$roomCode}\n";
}
'
StndRm Standard Room
Pent Penthouse
Suite Suite
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
