#!/usr/bin/perl -s

$usage = "
  -h  show this help and exit
  -i  number of topics first
  -r  reverse order (only when sorting)
  -s  sort by number of topics
  -q  don't print total number of topics

";

if ($h) {print $usage;exit}

for (<*.dat>) {$t=`grep % "$_" | wc -l`;$total+=1+$t++;$s?$cont{$_}=$t:print $i?"$t - $_\n":"$_ - $t\n"}

if ($s) {for (sort {$r?$cont{$a}<=>$cont{$b}:$cont{$b}<=>$cont{$a}} keys %cont) {print $i?"$cont{$_} - $_\n":"$_ - $cont{$_}\n"}}

print "$total\n" unless $q