topic Re: File::find question in Operating System - HP-UX

File::find question

Ridzuan Zakaria — Mon, 01 May 2006 15:55:09 GMT

Hi,

I would like to use File::find to traverse a directory tree find files but would like to skip some of suddirectories under that directory.

How do I do this using File::find?

Thanks.

Re: File::find question

James R. Ferguson — Mon, 01 May 2006 16:56:13 GMT

Hi:

A Perl question...

First, consider:

If you wanted to find all files in '/var' whose name ended in ".log" but you wanted to *skip* any within '/var/adm' you could do:

# find /var -type f ! -path "/var/adm/*" -prune -name "*.log" -print

NOW, using the above command, with *one modification*, do:

# find2perl /var -type f ! -name "/var/adm/*" -prune -name "*.log" -print

NOTE that the '-path' has been changed to '-name' and then the whole argument passed to 'find2perl'.

The generated 'wanted' subroutine should be what you seek.

Regards!

...JRF...

Re: File::find question

James R. Ferguson — Mon, 01 May 2006 19:18:50 GMT

Hi (again):

My apologies, the generated code doesn't quite do what we want. Given my original shell command:

# find /var -type f ! -path "/var/adm/*" -prune -name "*.log" -print

...a 'wanted' subroutine like this should match:

sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid);

(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-f _ &&
$File::Find::name !~ /^\/var\/adm\//s &&
/^.*\.log\z/s &&
print("$name\n");
}

Regards!

...JRF...

Re: File::find question

H.Merijn Brand (procura — Tue, 02 May 2006 01:27:59 GMT

Check on $File::Find::dir
If you want to check on the target of symbolic links too, use Cwd's realpath () or perl's readlink ().

# perl -MFile::Find -le'find(sub{$File::Find::dir=~m{pattern-for-dirs-to-skip} and return;print$File::Find::name},@ARGV)' /var /tmp

Enjoy, Have FUN! H.Merijn

Re: File::find question

Ridzuan Zakaria — Tue, 02 May 2006 10:48:52 GMT

Thanks everyone for your help.