![]() |
|
The stupid question is the question not asked | |
PerlMonks |
Re: Perl and Morphologyby ChOas (Curate) |
on Mar 14, 2002 at 11:27 UTC ( [id://151647]=note: print w/replies, xml ) | 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 :)) GreetZ!,
print "profeth still\n" if /bird|devil/;
In Section
Seekers of Perl Wisdom
|
|