John W. Krahn wrote:
> Richard Lee wrote:
>>
>> something is wrong with this..
>>
>> say %yahoo's key contains the variable , X
>>
>> I wanted to go through the @[EMAIL PROTECTED]
which has array of hashes... to see
>> if one of the value is equal to
>> X and if it is, wanted to assign the key of the @[EMAIL PROTECTED]
to $ex_var..
>>
>> Tracing the program, it only goes through 6 lines of keys in @[EMAIL PROTECTED]
>> (random keys) (it has 89 keys total).. what am i doing wrong?
>>
>>
>>
>>
>> while (my ($keys,$values) = each(%yahoo) ) {
>> no strict 'refs';
>> MF: for my $i (0 .. $#t_array) {
>> for ( my($k,$v) = each(%{ $t_array[$i] } ) ) {
>
> The for loop is not doing what you appear to think it is supposed to
> be doing:
>
> $ perl -le'
> my %hash = "A" .. "Z";
> for my $c ( 1 .. 3 ) {
> my $i;
> for ( my ( $k, $v ) = each %hash ) {
> print "$c ", ++$i, qq[: \$_ = "$_" \$k = "$k" \$v = "$v"];
> }
> }
> '
> 1 1: $_ = "S" $k = "S" $v = "T"
> 1 2: $_ = "T" $k = "S" $v = "T"
> 2 1: $_ = "A" $k = "A" $v = "B"
> 2 2: $_ = "B" $k = "A" $v = "B"
> 3 1: $_ = "O" $k = "O" $v = "P"
> 3 2: $_ = "P" $k = "O" $v = "P"
>
>
> You need to use each() in a while loop instead.
>
>
>> my $keys_b = qr/$keys/;
>> if ( $v =~ m/$keys_b/ ) {
>> $ex_var = $k;
>> last MF;
>> }
>> }
>> }
>
>
> John
but my hash that i am going over is
%a = ( 'something' => '1', 'something2' => '2');
%b = ( 'something' => '2', 'something3'=>3);
@[EMAIL PROTECTED]
= (\%a, \%b)
so I am not sure how to use each ?
|
