p6fuser

#!/usr/bin/env perl6

use v6.c;

use Linux::Fuser;

multi sub MAIN(Bool :$u = False) {
    my $progname = $*PROGRAM-NAME.IO.basename;
    note "$progname: USAGE: $progname [-u] <filename> [<filename> ..]";
    exit(1);
}

multi sub MAIN(Bool :$u = False, *@files) {
    my $fuser = Linux::Fuser.new();
    for @files  -> $file {
        for $fuser.fuser($file) -> $proc {
            print $proc.pid, $u ?? '(' ~ $proc.user ~ ')' !! '', "\t";
        }
        say '';
    }
}

# vim: expandtab shiftwidth=4 ft=perl6