Script to recurse directory down 2 levels and list directors by last modified and size

[pauloke]

Hi,

I am new to perl (and lower level languages in general) so please be gentle with me.

I have a shared network folder that I need to monitor on a regular basis to ensure it doesn't become full. It stores project builds. Each project has its own folder containing multiple builds.

I need to produce a script that could initially produce a txt file maybe or just print to screen and list of build folders that are older than a given date and purhaps over a given size. So I will need to recurse through all project folders calculating build folders sizes and determine which match a given criteria.

without knowing much about perl I have become stuck very quickly and not know how to proceed. Do I use File::Find or do I use opendir - readdir - closedir? or is there a better solution.

Any help would be appreciate - I am not asking for someone to produce the script for me. Just point me in the right direction with example, code snippets and tutorials if you know or just and explanation of an algorithm.

I am working within a Win32 environment.

Hope you can help.

Thanks in advance.

[n3toy]

This might be a good place to start. It has some good code examples for recursive searches.

Jamie

[zentara]

You might find File::Find::Rule easy for depth control:

#!/usr/bin/perl
use warnings;
use strict;
use File::Find::Rule;

my $word = shift || 'perl';

# find all the files of a given directory
my $directory = shift || '/home/zentara';

my $depth = shift || 3;

my $rule1 = File::Find::Rule->new;
$rule1->maxdepth($depth);
$rule1->file;
$rule1->grep(qr/\Q$word\E/);
#$rule->name( '*.pm' );
my @files = $rule1->in($directory);
print "@files\n";

[kennethk]

I would suggest using the stat function on your directory or file handles - note the element ctime corresponds to creation time on MS systems.

You might also consider using a revision control framework in place of a community network drive.