| 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; |