- print "\n";
- print "BIB-1 ATTRIBUTES\n";
- my $ap = $this->{bib1AccessPoints};
- foreach my $attr (sort { $ap->{$b} <=> $ap->{$a}
- || $a <=> $b } keys %$ap) {
- print sprintf("%6d%20s%d (%d%%)\n",
- $attr, "", $ap->{$attr}, 100*$ap->{$attr}/$this->{n});
+ my $hr;
+
+ print "\nTOP 10 BIB-1 ATTRIBUTES\n";
+ $hr = $this->{bib1AccessPoints};
+ foreach my $key ((sort { $hr->{$b} <=> $hr->{$a}
+ || $a <=> $b } keys %$hr)[0..9]) {
+ print sprintf("%6d%20s%5d (%d%%)\n",
+ $key, "", $hr->{$key}, 100*$hr->{$key}/$this->{n});
+ }
+
+ print "\nRECORD SYNTAXES\n";
+ $hr = $this->{recordSyntaxes};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$this->{n});
+ }
+
+ print "\nEXPLAIN SUPPORT\n";
+ $hr = $this->{explain};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$this->{n});
+ }
+
+ print "\nZ39.50 PROTOCOL SERVICES SUPPORT\n";
+ $hr = $this->{z3950_init_opt};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$this->{n});
+ }
+
+ print "\nTOP-LEVEL DOMAINS\n";
+ $hr = $this->{domains};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$this->{n});
+ }
+
+ print "\nIMPLEMENTATIONS\n";
+ $hr = $this->{implementation};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$this->{n});