topic Re: command "find" -Option: -xdev / option perl File::Find in Operating System - HP-UX

command "find" -Option: -xdev / option perl File::Find

support_billa — Wed, 06 Jul 2011 07:48:32 GMT

hello,

unix command find has following option:

find
-- Option: -xdev
or
-- Option: -mount
Don't descend directories on other filesystems. These options are
synonyms.

we have a perl program and i can't find a Option , which do the same like "-xdev"

use File::Find;
.....

# process is a procedure

find({wanted => \&process,no_chdir => TRUE},$file_system);

i didn't find a option . does a option exist ?

regards

Re: command "find" -Option: -xdev / option perl File::Find

Dennis Handly — Wed, 06 Jul 2011 08:46:23 GMT

>Option: -mount

There is no such option. There are -xdev and -mountstop.

Re: command "find" -Option: -xdev / option perl File::Find

Tom Maloy — Wed, 06 Jul 2011 12:07:50 GMT

Try the "find2perl" command with the options that you want to use.

Re: command "find" -Option: -xdev / option perl File::Find

James R. Ferguson — Wed, 06 Jul 2011 13:19:32 GMT

Hi:

As Tom suggested, leverage 'find2perl' to see how this can be done. If you compare something like:

# find2perl /etc -print

...with:

# find2perl /etc -xdev -print

...you can see that the key is evaluating the stat() structure's device number. The 'File::Find::topdev' variable holds the top directory's device number and find() skips objects that don't have the same device number.

Regards!

...JRF...

Re: command "find" -Option: -xdev / option perl File::Find

support_billa — Wed, 10 Aug 2011 17:14:14 GMT

hello,

i tried find2perl , but how i use i the perl script of author

"A. Clay Stephenson" How to find the greatest size file in certain mount point? ( it is in the attachment), also in the attachment "find2perl "

regards

Re: command "find" -Option: -xdev / option perl File::Find

James R. Ferguson — Wed, 10 Aug 2011 17:35:46 GMT

@support_billa wrote:

i tried find2perl , but how i use i the perl script of author

"A. Clay Stephenson" How to find the greatest size file in certain mount point? ( it is in the attachment), also in the attachment "find2perl "

The suggestion for looking at 'find2perl' was to show how you implement the shell's find()'s '-xdev' option. As I originally saidt the key is evaluating the stat() structure's device number. The 'File::Find::topdev' variable holds the top directory's device number and find() skips objects that don't have the same device number.

You can modify Clay's script to include this if that meets your need; or write your own (to do what *you* want to do; or *not* use File::Find but rather use 'readdir()' to recursively descend a directory and examine and "do things" with its contents.

I would be appropriate if you provided some thanks and some feedback in the form of kudos for the help you have received in numerous threads, too.

Regards!

...JRF...

Re: command "find" -Option: -xdev / option perl File::Find

support_billa — Thu, 11 Aug 2011 08:49:28 GMT

hello,

thank you for your help, i try to change the perl code .

regards,

Re: command "find" -Option: -xdev / option perl File::Find

support_billa — Thu, 25 Aug 2011 14:35:56 GMT

with help i changed the perl code . it contains an new optional parameter "-xdev".

it works well , but a little bit slow for filesystem "/" , ux-command "find" is faster !

regards