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;
    }
}

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^4: Hash Question
by perlnoobster (Sexton) on Jan 09, 2013 at 11:37 UTC
    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";
    }
}

    [download]
[reply]
[d/l]
      The for is also important.
      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
        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";
    }

        [download]
[reply]
[d/l]

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

[reply]

In Section Seekers of Perl Wisdom