Brent Clark am Mittwoch, 3. August 2005 10.43:
> Hi list
Hi
> 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;
Please post all relevant code, and data in $ref_hash.
Best to post a runnable example.
$pCode is not defined.
$p110rm01 is not defined.
$finalHash is not defined.
>
> my Data::Dumper return as so:
>
> 'Grac01' => [
> ${\$VAR1->{'Mabu01'}[0]}, #This
> is not correct
Could be a circular reference withing the data structure.
> '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>
