Re^3: Hash Question

[choroba]

in reply to Re^2: Hash Question
in thread Hash Question

You probably mean

for my $value (@text[11, 12, 14, 15, 19]) {
    if ($bHash{ $text[3] } eq $value) {
        $bHash{ $text[0] } = $value;
        last;
    }
}

[perlnoobster]

Hi Choroba, That's exaclty what I mean! but i can't figure out what's wrong with it? i've included it in my coding but it doesn't work:

foreach (<$ah>)

    {
    my $nullval = ' ';
    my @text = split(/\t/);
    my $value (@text[11, 12, 14, 15, 19])

    
    
    if ($bHash{ $text[3] } eq $value) {
        $bHash{ $text[0] } = $value;
        last;
     
    print OUT2 join( "\t", @text[1,2,3,4,11,5,6,8,7,11,12]),"\t$nullva
+l\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullv
+al\t$nullval\t$nullval\t1\t1\n";
    }
} 

[choroba]

The for is also important.

[perlnoobster]

Ok that's cool, but I've placed it under the foreach and it's still showing errors:

foreach (<$ah>)
for my $value (@text[11, 12, 14, 15, 19])

    {
    my $nullval = ' ';
    my @text = split(/\t/);
    
    
    if ($bHash{ $text[3] } eq $value) {
        $bHash{ $text[0] } = $value;
        last;
     
    print OUT2 join( "\t", @text[1,2,3,4,11,5,6,8,7,11,12]),"\t$nullva
+l\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullv
+al\t$nullval\t$nullval\t1\t1\n";
    }

[Anonymous Monk]

You're making stuff up again, for loop is for loop, its a for loop