Edit: /opt/dedrads/extras/locatecore (628B)
#!/usr/bin/perl
#
# Made by Brandon Florin
($filelist) = @ARGV;
if ($filelist !~ /./) {
@files = `locate -r core.[0-9][0-9]`;
} else {
open (IN,"<$filelist");
foreach (
) {
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";
}