Hmm. On 2006.4.5, at 08:48 AM, Joel Rees wrote:
Not a one-liner and not even pretty, but since I needed the practice: --------------------- #! /usr/bin/perl use File::Find; @l = ( "/" ); sub w { if ( -d $_ ) { my $dir = $File::Find::dir; if ( system( "file * | grep perl" ) == 0 ) { print "*** from: $dir ***\n"; } } } find( \&w, @l ); ---------------------
After about two hours of running (on an old clamshell iBook) and dredging up some really interesting stuff, it seems to have completed without descending into /usr/bin.
Anyone have any ideas why?