in reply to Re^3: Words in Words
in thread Words in Words

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"

Replies are listed 'Best First'.
Re^5: Words in Words
by choroba (Cardinal) on Sep 30, 2011 at 23:54 UTC
    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