Name: Max Maischein Email: [EMAIL PROTECTED] Homepage: <none> Preferred user-ID: CORION
I have some different modules on the backburner, but one that has neared completion (in the "I want to add it to CPAN after I discuss it on Perlmonks"-sense) - the current name of the module is File::Dependencies. It is a wrapper that allows to easily check whether a list of files changed (timestamp or MD5) since the last check. I'm not yet sure if the module name is OK, so if anybody wants to see what the module is about, appended is the SYNOPSIS part of the POD. Another name already suggested was "File::Modified". Thanks, -max use strict; use File::Dependencies; my $d = File::Dependencies->new(Files=>['Import.cfg','Export.cfg']); while (1) { my (@changes) = $d->changed; if (@changes) { print "$_ was changed\n" for @changes; $d->update(); }; sleep 60; }; Second example - a script that knows when any of its modules have changed : use File::Dependencies; my $files = File::Dependencies->new(Files=>[values %INC, $0]); # We want to restart when any module was changed exec $0, @ARGV if $files->changed();