1#@!#!123s

D7net

: / proc / 3 / root / opt / dedrads / extras /

Filename : 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";
}