|Problems? Is your data what you think it is?|
Re: Perl and Morphologyby ChOas (Curate)
|on Mar 14, 2002 at 11:27 UTC||Need Help??|
Think this might be a start ? .. only tested on your data: ;))
It`s probably not the cleanest code, but it was fun to do, so
I thought I`d post it :)))
I figure you can use this as a start to really solve your
problem, it shouldn`t be too hard to once you got the Root,
take the substring out of the hash, and start looking for the next
one (using that FindRoot sub) which would give you `lar` ,
making the next root `BasLar` ...
Hmmmmm... actually I think I got that to work here...
Looking forward to more test-data :))
print "profeth still\n" if /bird|devil/;