source:
vendor/3.6.23/docs-xml/scripts/neatquotes.pl
| Last change on this file was 414, checked in by , 15 years ago | |
|---|---|
| File size: 240 bytes | |
| Line | |
|---|---|
| 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 | } |
Note:
See TracBrowser
for help on using the repository browser.
