http://qs321.pair.com?node_id=1145700


in reply to Extracting common words

In Pseudo-Code:
open file1 loop over file 1 extract each $word $results{$word} = 1 end-loop close file1 open file2 loop over file2 extract each $word $results{$word" += 2 #### Note: '+=', not '=' end-loop close file2 ## ### %results contains all of the words in both files. ### Words that appear in both files will have a value of '3'. ### Iterate over the %results keys and print only the ### when the value is '3'. ##

----
I Go Back to Sleep, Now.

OGB