#!/usr/bin/perl
use warnings;
use strict;

my @smbstatus = qx{/usr/bin/smbstatus -b};

my %users = ();

for (@smbstatus) {
    chomp;
    next if (/^$/);
    next if ( !/^\s*?\d*?\s/ );
    s/^ *//;
    my ( $pid, $user, $group, $pc, $time ) = split / +/;
    $users{$pid} = "$user @ $pc :\n\n";
}

@smbstatus = qx{/usr/bin/smbstatus -L};

my @lfiles = ();

for (@smbstatus) {
    chomp;
    next if (/^$/);
    next if ( !/^\s*?\d*?\s/ );
    push @lfiles, $_;
}

for my $pid ( sort( keys(%users) ) ) {
    next unless ( grep( /^$pid/, @lfiles ) );
    print $users{$pid};
    my @files = grep( /^$pid/, @lfiles );
    for (@files) {
        my @r =  split(/ +/,substr($_,0,-27));
        print "$r[0]\t$r[1]\t$r[3]\t".substr($_, 52, -27)."\n";
    }
    print "_________________________________________\n\n";
}