find.pl

warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used  at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";

 

# This library is deprecated and unmaintained. It is included for

# compatibility with Perl 4 scripts which may use it, but it will be

# removed in a future version of Perl. Please use the File::Find module

# instead.

 

# Usage:

#              require "find.pl";

#

#              &find('/foo','/bar');

#

#              sub wanted { ... }

#                            where wanted does whatever you want. $dir contains the

#                            current directory name, and $_ the current filename within

#                            that directory. $name contains "$dir/$_". You are cd'ed

#                            to $dir when the function is called. The function may

#                            set $prune to prune the tree.

#

# For example,

#

# find / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune

#

# corresponds to this

#

#              sub wanted {

#               /^\.nfs.*$/ &&

#               (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&

#               int(-M _) > 7 &&

#               unlink($_)

#               ||

#               ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&

#               $dev < 0 &&

#               ($prune = 1);

#              }

#

# Set the variable $dont_use_nlink if you're using AFS, since AFS cheats.

 

use File::Find ();

 

*name                            = *File::Find::name;

*prune                            = *File::Find::prune;

*dir                            = *File::Find::dir;

*topdir                            = *File::Find::topdir;

*topdev                            = *File::Find::topdev;

*topino                            = *File::Find::topino;

*topmode              = *File::Find::topmode;

*topnlink              = *File::Find::topnlink;

 

sub find {

  &File::Find::find(\&wanted, @_);

}

 

1;