http://www.perlmonks.org?node_id=928930


in reply to Re: Words in Words
in thread Words in Words

I may not have clarified the specs as well as I had hoped.

The results should be a distinct list of the words in the list that can be found contained within another word in the list taking into consideration the exclusions I listed.

When I run this code, it returns words that are not contained in the wordlist. They are just pieces of the word.

I will say that it is pretty fast though and I may be able to use this technique to get what I am looking for.

Thank you.

Replies are listed 'Best First'.
Re^3: Words in Words
by choroba (Cardinal) on Sep 30, 2011 at 23:31 UTC
    When I run this code, it returns words that are not contained in the wordlist. They are just pieces of the word.
    Have you changed the path to the input file? The code should only print words from the list!
[reply]

      I did change the path but it looks like the code is substringing words through itself. Here is what I get:

      p in pogy's
po in pogy's
pogy in pogy's
o in pogy's
og in pogy's
g in pogy's
gy in pogy's
gy's in pogy's
y in pogy's
y's in pogy's
s in pogy's

      [download]

      The process needs to look for the word "pogy's" within another word in the list like "apogy's"

[reply]
[d/l]
        Are you sure "p", "po", "pogy" etc. are not on the list, too? If you are interested just in the words contained in other words, just declare the %found outside of the outermost loop and print only $subword.
[reply]
[d/l]

In Section Seekers of Perl Wisdom