Need to find mount point for device.

On a Sun box I'm trying to find what files certain processes have open. I'm to the point where by using Proc::ProcessTable and the pfiles function on Sun (I don't have root privileges to us lsof) I can get the following information back for each of the files:

            'Device' => '283,0',
            'Create Mode' => 'O_RDWR FD_CLOEXEC',
            'File Number' => '5',
            'Group ID' => '14700',
            'Mode' => '0000',
            'Size' => '0',
            'Type' => 'S_IFIFO',
            'Inode' => '1877643288',
            'User ID' => '5800'
[download]

I know I can use find to find the file name from the inode, but I'm having trouble getting from a device like '283,0' to a mounted file system I can search.

Searches have turned up too many results and the several CPAN modules I've tried haven't worked out. Can anyone recommend a good module I can use for this? Also I would love a module that could return a list of open files given a Pid, but I haven't been able to find anything like that.

Comment on Need to find mount point for device. Select or Download Code
Re: Need to find mount point for device. by ig (Priest) on Jul 17, 2009 at 21:23 UTC
You might try Solaris::Procfs and in particular its fd method.	[reply]
Re: Need to find mount point for device. by Bloodnok (Vicar) on Jul 18, 2009 at 00:07 UTC
Untested, but I'd do something along the lines of: Run a recursive detailed listing of `/dev` and grep for the major & minor numbers - in this case 283 & 0 e.g. `find /dev -ls \| perl -ne 'print if /\s283,\s+0\s/'` - this will give you the dev entry e.g. `/dev/c1t2d3s0`, then simply grep this out of the mounted device list e.g. `mount \| grep '/dev/c1t2d3s0'`. A user level that continues to overstate my experience :-))	[reply] [d/l] [select]
Re: Need to find mount point for device. by leocharre (Priest) on Jul 22, 2009 at 15:04 UTC
Sys::Filesystem::MountPoint will help you find the mount point for any given path. Check out the examples to see if this can solve your problem.	[reply]


Think about Loose Coupling
	PerlMonks

Need to find mount point for device.

The best material for plates (tableware) is: