version 1.1, 2004/09/14 19:47:02
|
version 1.2, 2004/09/14 19:57:15
|
Line 30 sub print_unused {
|
Line 30 sub print_unused {
|
my ($all,$usage)=@_; |
my ($all,$usage)=@_; |
my %all; |
my %all; |
my %no_exist; |
my %no_exist; |
foreach my $file (@{ $all }) {$all{$file}=0;} |
foreach my $file (@{ $all }) {$all{$file}=[];} |
|
my @order=('author','course','developer'); |
foreach my $list (@{ $usage }) { |
foreach my $list (@{ $usage }) { |
foreach my $file (@{ $list }) { |
foreach my $file (@{ $list }) { |
if (exists($all{$file})) { $all{$file}++; } else { $no_exist{$file}++; } |
if (exists($all{$file})) { |
|
push(@{$all{$file}},$order[0]); |
|
} else { |
|
push(@{$no_exist{$file}},$order[0]); |
|
} |
} |
} |
|
shift(@order); |
} |
} |
print("Usage count for existing Files:\n"); |
print("Usage count for existing Files:\n"); |
foreach my $file (sort {uc($a) cmp uc($b)} (keys(%all))) { |
foreach my $file (sort {uc($a) cmp uc($b)} (keys(%all))) { |
printf("%-50s: %s\n",$file,$all{$file}); |
if (scalar(@{ $all{$file} }) ne 0) { |
|
printf("%-50s: %s in %s\n",$file,scalar(@{$all{$file}}), |
|
join(',',@{$all{$file}})); |
|
} else { |
|
printf("%-50s: %s\n",$file,scalar(@{$all{$file}})); |
|
} |
} |
} |
print("Usage count for nonexistint Files:\n"); |
print("Usage count for nonexistint Files:\n"); |
foreach my $file (sort {uc($a) cmp uc($b)} (keys(%no_exist))) { |
foreach my $file (sort {uc($a) cmp uc($b)} (keys(%no_exist))) { |
printf("%-50s: %s\n",$file,$no_exist{$file}); |
printf("%-50s: %s in %s\n",$file,scalar(@{$no_exist{$file}}), |
|
join(',',@{$no_exist{$file}})); |
} |
} |
} |
} |
|
|