Файловый менеджер - Редактировать - /opt/dedrads/extras/locatecore
Ðазад
#!/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.1 | |
.
| PHP 8.3.30 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0 |
proxy
|
phpinfo
|
ÐаÑтройка