Hi list
I have my code as so:
for my $roomCode ( keys %{ $ref_hash->{$fileName} } ){
my $roomName = $ref_hash->{$fileName}{$roomCode};
if( $pCode eq 'p110'){
if ($p110rm01 eq $roomName ){
$finalHash{$fileName}[0] = $roomName;
my Data::Dumper return as so:
'Grac01' => [
${\$VAR1->{'Mabu01'}[0]}, #This is
not correct
'Suite',
'Penthouse'
],
Would anyone know why I get this back
I tried print just after I have
my $roomName = $ref_hash->{$fileName}{$roomCode};
and the print is fine.
its just when I add the name to the hash or arrays.
If anyone could point out where im going wrong, I would greatfully
appreciate your help.
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>
