scripts/testdoc-extract.pl

   1 #!/usr/bin/perl
   2
   3
   4 while (<>) {
   5     chop($_);
   6     $s = "";
   7     %ss = {};
   8     while (m/{([^}]*)}/g) {
   9         @s = split(/,/,lc($1));
  10         $sss = join('',sort(@s));
  11         #print "\n>>$sss<<<\n";
  12         if (!defined($ss{$sss})) {
  13             $s .= " (".join(',',@s).')';
  14             $ss{$sss} = "true";
  15             #print ">>>>>>>>>>ADD";
  16         }
  17     }
  18     $_ =~ s/{([^},]*),[^}]*}/\\textbf{\1}/g;
  19     print '\noindent '.$_.'\hfill'.$s.'\par'."\n";
  20 }