File manager - Edit - /opt/dedrads/extras/locatecore
Back
#!/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"; }
| ver. 1.4 |
Github
|
.
| PHP 8.3.31 | Generation time: 0 |
proxy
|
phpinfo
|
Settings