Sombrerero_loco has asked for the wisdom of the Perl Monks concerning the following question:

Hi seekers. Im really annoyed, i really dont where its the bug in this lines: 

foreach $asignador_final (keys (%final)) {
	foreach $asignador_index (keys(%index)) {
		=> if (%index{$asignador_index}{"servicio"} eq "portal" && $asignador_final eq $asignador_index) {
			$index{$asignador_index}{"estado"} = $final{$asignador_final}{"estado_max"}
		}
    }
}
The debbuger told me i have a syntax error after the arrow Something weird inside in invisible mode.. :)

Replies are listed 'Best First'.
Re: Looking for the error in this code!
by moritz (Cardinal) on Jan 12, 2009 at 12:49 UTC
    When you access a hash item, the % becomes a $. %index is accessed as $index{foo}. See perlintro and perldata.

    Oh, and I hope you put the => only in for illustration, it would make no sense in real code.

[reply]
[d/l]
[select]
      ha ha ha yes, => its only for see it better... i think i dont have a very good to do perl, i did't saw it...my god :=) Thanks! should i go sleep?
[reply]
Re: Looking for the error in this code!
by jwkrahn (Abbot) on Jan 12, 2009 at 13:22 UTC

    Also, you don't need two loops there, you can do it in one loop: 

    for my $asignador_index ( keys %index ) {
    if ( $index{ $asignador_index }{ servicio } eq 'portal' && exists 
+$final{ $asignador_index } ) {
        $index{ $asignador_index }{ estado } = $final{ $asignador_inde
+x }{ estado_max }
    }
}

    [download]
[reply]
[d/l]
      thanks, such a better way to do that!....less cpu cycles wasted :) thank you!
[reply]

Back to Seekers of Perl Wisdom