in reply to Re^4: Hash Questionin 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"; } [download]
Turing machines λ-calculus μ-recursive functions Formal grammars Markov chains Petri nets Conway's Game of Life Perl regular expressions My Magic 8-Ball™ Actual computers
Results (193 votes). Check out past polls.