Subversion Repositories sysadmin_scripts

Rev

Rev 162 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 162 Rev 163
Line 63... Line 63...
63 
 
 63 
 
64 
#print Dumper( \%data ) . "\n"; die;
 64 
#print Dumper( \%data ) . "\n"; die;
65 
 
 65 
 
66 
foreach my $thisEntry ( sort{ $data{$b}{'total'} <=> $data{$a}{'total'} } keys %data ) {
 66 
foreach my $thisEntry ( sort{ $data{$b}{'total'} <=> $data{$a}{'total'} } keys %data ) {
67 
   last unless $maxCount--;
 67 
   last unless $maxCount--;
68 
   my $numCopies = scalar( @{$data{$entry}{'files'}} );
 68 
   my $numCopies = scalar( @{$data{$thisEntry}{'files'}} );
69 
   print "$data{$thisEntry}{total} bytes wasted in following " . $numCopies . " files of $data{$thisEntry}{size} bytes\n";
 69 
   print "$data{$thisEntry}{total} bytes wasted in following " . $numCopies . " files of $data{$thisEntry}{size} bytes\n";
70 
   print "\t" . join( "\n\t", @{$data{$thisEntry}{'files'}} ) . "\n\n";
 70 
   print "\t" . join( "\n\t", @{$data{$thisEntry}{'files'}} ) . "\n\n";
71 
}
 71 
}
72 
 
 72 
 
73 
exit 1;
 73 
exit 1;