This module provides information similar to the Unix command 'fuser'
about which processes have a particular file open.  The way that this
works is highly unlikely to work on any other OS other than Linux and
even then it may not work on other than 2.2.* kernels. Some features
may not work correctly on kernel versions older than 2.6.22


It should also be borne in mind that this may not produce entirely
accurate results unless you are running the program as the Superuser
as the module will require access to files in /proc that may only be
readable by their owner.


Linux::Fuser - Determine which processes have a file open


NAME

code

=begin code

  use Linux::Fuser;

  my $fuser = Linux::Fuser->new();

  my @procs = $fuser.fuser('foo');

  for @procs -> $proc ( @procs ) {
    say $proc.pid(),"\t", $proc.user(),"\n",$proc->cmd();
  }

=end code


SYNOPSIS

DESCRIPTION

The class has one method, with two signatures, that does most of the work:


METHODS


class Linux::Fuser:ver<0.0.14>:auth<github:jonathanstowe>:api<1.0> {
    # Shamelessly stolen from IO::Path::More
    # for my own stability
    my role IO::Helper {
        use nqp;

        has Int $.inode;
        method inode( --> Int) {
            if not $!inode.defined {
                if self.e {
                    $!inode = nqp::p6box_i(nqp::stat(nqp::unbox_s(self.Str), nqp::const::STAT_PLATFORM_INODE));
                }
            }
            $!inode;
        }

        has Int $.device;

        method device( --> Int) {
            if not $!device.defined {
                if self.e {
                    $!device = nqp::p6box_i(nqp::stat(nqp::unbox_s(self.Str), nqp::const::STAT_PLATFORM_DEV));
                }
            }
            $!device;
        }

        method append (*@nextpaths) {
            my $lastpath = @nextpaths.pop // '';
            self.new($.SPEC.join($.volume, $.SPEC.catdir($.dirname, $.basename, @nextpaths), $lastpath));
        }

    }

    #| Given the path to a file as a String returns a list of L<doc:Linux::Fuser::Procinfo>
    #| objects describing any processes that have the file open
    multi method fuser (Str $file  --> Array ) {
        self.fuser(IO::Path.new($file));
    }

    #| Given the L<doc:IO::Path> that describes the filereturns a list of L<doc:Linux::Fuser::Procinfo>
    #| objects describing any processes that have the file open
    multi method fuser(IO::Path $file --> Array ) {
        $file does IO::Helper;
        my @procinfo;
        my $device = $file.device;
        my $inode  = $file.inode;

        if $file.e {
            for dir('/proc', test => /^\d+$/) -> $proc-file {
                $proc-file does IO::Helper;
                my $fd_dir = $proc-file.append('fd');
                if $fd_dir.r {
                    for $fd_dir.dir(test => /^\d+$/) -> $fd-file {
                        $fd-file does IO::Helper;
                        if ( self!same_file($file, $fd-file ) ) {
                            @procinfo.push(Linux::Fuser::Procinfo.new(:$proc-file, :$fd-file));
                        }
                    }
                }
            }
        }
        @procinfo;
    }

    method !same_file(IO::Path $left, IO::Path $right --> Bool) {
        my Bool $rc = False;
        sub same($l, $r  --> Bool) {
            (all($l, $r) ~~ { .defined }) && ( $l == $r );
        }

        if ( same($left.inode, $right.inode) && same($left.device, $right.device) ) {
            $rc = True;
        }
        return $rc;
    }
}
# vim: expandtab shiftwidth=4 ft=raku


root

This provides additional information about the file descriptor instance as
opened by a process.  Typically it will be accessed via the C<fdinfo> attribute
of L<doc:Linux::Fuser::Procinfo> and need not be constructed in user code.


Because it needs to read the C</proc/<pid>/fdinfo/<fd>> entry which will only be
readable by the user that has the file open this may not work as expected unless
run by the superuser.


Linux::Fuser::FileDescriptor - describe a file opened by a process


README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Linux::Fuser - Determine which processes have a file open

NAME

SYNOPSIS

METHODS

Linux::Fuser v0.0.15

Authors

License

Dependencies

Test Dependencies

Provides

Documentation