Re: 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'.
##
[download]

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

OGB

Comment on Re: Extracting common words Download Code

Replies are listed 'Best First'.
Re^2: Extracting common words by BrowserUk (Patriarch) on Oct 22, 2015 at 23:08 UTC
`## ### %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'. ##` [download] If a word appears once in the first file and twice in the second, the value will 5; if it appears 3 times in the second file ... With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :) In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^2: Extracting common words by Anonymous Monk on Oct 22, 2015 at 23:39 UTC
`$results{$word" \|= 2 #### Note: '\|=', not '+=' and not '='` [download]	[reply] [d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks