Help for this page

Select Code to Download


  1. or download this
    sub wanted {
      return unless -f $_;
      my $old_flag = -M $_ > 180 ? 'old' : 'new';
      $ages{$File::Find::dir}{$old_flag}++;
    }
    
  2. or download this
    # untested
    if ( -f $file) {
       $age{$File::Find::dir}{ -M $file < 180 ? 'old' : 'new' }++;
    }