| Server IP : 199.250.200.62 / Your IP : 216.73.217.89 Web Server : Apache System : Linux vps37394.inmotionhosting.com 3.10.0-1160.119.1.vz7.224.4 #1 SMP Mon Sep 30 15:36:27 MSK 2024 x86_64 User : jasonp18 ( 1000) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /opt/dedrads/extras/ |
Upload File : |
#!/usr/bin/perl
#
# Made by Brandon Florin
($filelist) = @ARGV;
if ($filelist !~ /./) {
@files = `locate -r core.[0-9][0-9]`;
} else {
open (IN,"<$filelist");
foreach (<IN>) {
push (@files, $_);
}
}
foreach (@files) {
chomp ($_);
(undef, undef, $user) = split(/\//,$_);
$count = `du -b $_`;
$count =~ s/^(\d+).*?$/$1/;
chomp ($count);
@usercount{$user} += 1;
@usersize{$user} += $count;
}
print "Found the following matches:\n";
foreach (keys %usercount) {
print "$user :: $usercount{$_}\n";
}
print "\n";
print "Size of matched files:\n";
foreach (keys %usersize) {
print "$user :: $usersize{$_} bytes\n";
}