docs-xml/scripts/neatquotes.pl

   1 #!/usr/bin/perl
   2
   3 my $inprog = 0;
   4
   5 while(<STDIN>) {
   6         if(/<(programlisting|screen)>/) { $inprog = 1; }
   7         if(/<\/(programlisting|screen)>/) { $inprog = 0; }
   8         if(not /="(.*)"/ and not $inprog) {
   9                 s/"(.*?)"/<quote>\1<\/quote>/g;
  10         }
  11         print $_;
  12 }