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?
