oryann9> $ find2perl /dirname -size +4092k -ls -prune Since -prune is *after* the condition of -size, you're setting prune only for VERY VERY LARGE directories. Is that your intent?
-- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! No, but good point. My intent was to determine when -prune was set on the CLI what the De-parsed code told me, 1==true, 0==false because when I run this code below prune = 0 is not working, its descending down "/". use strict ; use warnings ; use File::Find ; use File::Find::Closures qw(find_by_min_size) ; <snip> find_me ( $fs, 0 ); <snip> sub find_me { use Data::Dumper; my $fs = shift; print "FS from sub\t$fs\n"; print Dumper(local $File::Find::prune = shift); ##-- localize prune to just this block --## use constant MAX_SIZE => (25*1024*1024) ; use constant DIVISOR => (1024) ; my ( $wanted, $list ) = find_by_min_size ( MAX_SIZE ) ; File::Find::find ( { wanted => $wanted, }, $fs ) ; @large_files = $list->() ; @sorted_large_files = sort { -s $b <=> -s $a } @large_files ; } ##-- End sub --## <snip> thx for the reply! ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
