3 # count_overview.pl: Count the groups in a bunch of xref records.
8 @xreflist = split(/\t/); # split apart record
10 $_ = $xreflist[$#xreflist]; # xref is last.
12 @xreflist = reverse(split(/ /)); #break part xref line.
14 pop @xreflist; # get rid xref header
17 while ($current = pop @xreflist) {
18 ($current) = split(/:/,$current); #get newsgroup name
19 $groups{$current}++; #tally
24 # display accumulated groups and counts.
25 foreach $current (sort keys %groups) {
26 printf "%-50s\t%5d\n", $current, $groups{$current};