home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3286 < prev    next >
Internet Message Format  |  1991-05-03  |  818b
  1. From: djm@eng.umd.edu (David J. MacKenzie)
  2. Newsgroups: comp.lang.perl,alt.sources
  3. Subject: replacing " with `` and ''
  4. Message-ID: <DJM.91May3235942@egypt.eng.umd.edu>
  5. Date: 4 May 91 03:59:42 GMT
  6.  
  7. Here's a little script I wrote when I needed to typeset some documents
  8. that had been written with a word processor.  Anyone have a better way
  9. to do this in perl?
  10.  
  11. #!/usr/local/bin/perl
  12. # Change " to `` and '' for typesetting.
  13. # Leave unchanged lines that start with `.', `'', or `\"',
  14. # because they are probably troff code.
  15. # David MacKenzie, djm@eng.umd.edu
  16.  
  17. $leftquote = 1;
  18. while (<>) {
  19.     if (!(/^[.\']/ || /^\\\"/)) {
  20.     while (/\"/) {
  21.         if ($leftquote) {
  22.         s/\"/\`\`/;
  23.         } else {
  24.         s/\"/\'\'/;
  25.         }
  26.         $leftquote = !$leftquote;
  27.     }
  28.     }
  29.     print;
  30. }
  31. --
  32. David J. MacKenzie <djm@eng.umd.edu> <djm@ai.mit.edu>
  33.