in reply to Re^4: Manage Directory Structure
in thread Manage Directory Structure

If your "path of interest" contains symlinks to directories on other disk volumes or partitions, and if it turns out that some of the symlinks point to non-existent or unavailable paths (e.g. pointing to a volume that isn't currently mounted), one solution would be to stick with my 3-step procedure (and still don't use  -follow in the find command at step 1), but subdivide step 2 into a few separate steps:

Based on that treatment, you'll know whether symlinks have been added or removed from within the directory tree of interest, you'll know which ones are broken, and for the ones that work, you'll know what sort of thing they point to, and (comparing listings from consecutive days) whether there has been a change in their target path. That should be all you need to know about symlinks per se.

For the ones that work, you won't know from the symlink listing whether the content of the target path has changed (i.e. change of a data file or change of directory contents). But if the target is a datafile or directory within the current tree of interest, that information will be available elsewhere in your overall output.

And if the target is on some other disk volume/partition, running this same process on that volume (on the relevant directory tree of interest) will tell you what you want to know about that content.

There will be some serious work in keeping all this information organized and managed properly, to make sure that everything gets covered with (ideally) no redundancy -- e.g. a process that scans the output listings for a given directory tree and launches this same process on other volumes as needed to cover all the cross-volume symlinks. I'll leave that as an exercise. ;)

(Good luck with the case of "symlink points to symlink points to symlink...", and with cases of "relative" as opposed to "absolute" target paths. You may need to do the equivalent of bash's "pushd / popd" within your perl script to test for target existence of relative-path symlinks.)

Replies are listed 'Best First'.
Re^6: Manage Directory Structure
by boardryder (Novice) on Jul 26, 2009 at 05:18 UTC
    I followed graff's advice and all seems to be working well so far after breaking out a new file for each directory. I took one shortcut to speed up implementation. I use File::Find to do my traversal and there are certain directories I want to skip. I add in if ($File::Find::name =~ /$skip/){return;} in my &wanted. This works and though it's not output File::Find continues its' recursion into my undesired directory thus eating precious processing time.

    I figure my only option is to not use File::Find, or is there a way around this?