in reply to Re^5: Hash Question
in thread Hash Question
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"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^7: Hash Question
by choroba (Cardinal) on Jan 09, 2013 at 11:59 UTC | |
by perlnoobster (Sexton) on Jan 09, 2013 at 12:52 UTC | |
by Anonymous Monk on Jan 09, 2013 at 13:05 UTC | |
by perlnoobster (Sexton) on Jan 09, 2013 at 13:33 UTC | |
by perlnoobster (Sexton) on Jan 09, 2013 at 14:10 UTC |