apps/irssi/findsyntax.pl

   1 #!/usr/bin/perl -w
   2
   3 while(<>) {
   4         if(m!/\*.SYNTAX\:! || $tt) {
   5                 s/^\s+/ /;
   6                 if (/^ [A-Z]+/) {
   7                         print "\n";
   8                         s/^ //;
   9                 }
  10                 if (m!\*/!) {
  11                         $tt=0;
  12                 } else {
  13                         $tt=1;
  14                         chomp;
  15                 }
  16                 print;
  17         }
  18 }