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]
An Englishman in New York An American Werewolf in London An American in Paris The Innocents Abroad An Idiot Abroad Robinson Crusoe on Mars A Connecticut_Yankee in King Arthur's Court There and Back Again Travels into Several Remote Nations of the World
Results (97 votes). Check out past polls.