Many reasons, though perhaps only important to me:
I used this as an exercise for OO programming. I have so many scripts working on a directory tree, collecting information and doing something with it. The shown script will help me to put it all into a single scheme.
Using File::Find I import another 5 modules. I like to avoid this for building MacPerl standalones
Another aspect of the whole script (not concerning File::Find) is having the same "find" interface under MacPerl.
I was impressed by MJDs Idendity charts
Lastly - I found your TieFinder example which avoids File::Find too :)
How could I improve the overall design, be it for educational purposes? |