Re^7: Hash Question

[choroba]

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

OK, that's even cooler. You have to fix the syntax error in your part first, though. (Hint: missing left curly brace).

[perlnoobster]

hey choroba, I've tried adding curly brackets but i still cannot figure out what the issue is, please help? Thank you

[Anonymous Monk]

hey choroba, I've tried adding curly brackets but i still cannot figure out what the issue is, please help? Thank you

Have you read perlintro?

for ( ... ) { # start something

    for ( ... ) { ... }

} # end something

[perlnoobster]

Hello Anonmous monk, I'm making progress:

foreach (<$ah>)

{
 my @text = split(/\t/);
 for my $value (@text[11, 14, 17])
 
    { 
 


    
    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]),"\t1\t1\n"
+;
    }
    }

close $ah; 

it works however the results seem to be duplicated? Thank you