Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
        $size_input =~ tr /\000//d ;
        sub wanted ;
        File::Find::find({wanted => \&wanted}, $fs_input ) ;
    
  2. or download this
       ###-- Tried and does not work => File::Find::find({wanted => \&want
    +ed}, $fs_input, $size_input ) ; --###
    }
    ...
              !( $File::Find::prune |= ($dev != $File::Find::topdev ) ) &&
              ( int(((-s _) + 1023) / 1024 ) > 26367 ) &&        
               ###-- only works when a hard-coded value is used --###
    
  3. or download this
       ###-- ( int(((-s _) + 1023) / 1024 ) > $size_input )--###
       ###-- GET ERROR if $size_input is used: Use of
    ...
    
    exit;
    <snip>