Exclude directories using File::Find::dir

[blarneyme]

I'm using File::Find::dir to find a particular file that may exist on a server, however, there are NFS mounts that I need to exclude.

This is the pertinent section of my code.

        find(sub {
                if ($_ =~ /myfile$/) {
                        push(@files, [$File::Find::dir . "/$_", (stat($_))[7]]);
                }
        }, "/");

 

[Annihilannic]

You could parse the NFS mounts out of the mount -v command output and add some logic to exclude them...

Annihilannic.