Select Code to Download

#!usr/bin/perl

...
# Date: 6 July 2002

use strict;

my $path = './';

die "The file $base_file does not exist!\n" if (!-f $base_file);

# Initiate the recursion
&RecurseDirs($path);

recurseDirs($path);

rm temp;

unlink "temp.txt";

sub RecurseDirs
{ 
...
    my $file;    #Variable for a file

    foreach $path($path){

       opendir (DIRECTORY, $path) || die "Can't read $path\n";

my @files = readdir(DIRECTORY);

       if (-d "$path$file/") { #If it's a directory...

                $path find -type f >temp.txt;

system("find", "$path -type f -atime +180 > temp.txt");

                $str = wc temp -l;
                $unused = int::substr($str, 0, 1);
                        #returns the first character as an int

                # Count files in dir
                $path find -type f >temp.txt;
                $str = wc temp -l;
                $count = int::substr($str, 0, 1); #returns the first
                                                #character as an int

                # Yes: write full dir path to file
                if (($unused * 2) > $count){
                        $path >>result.txt;
                }

#!/usr/bin/perl -w
use strict;
...
        }
        return @old;
}