Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/altsrcs/3/3286

Internet Message Format | 1991-05-04 | 818 b

From: [e-mail] (David J. MacKenzie)
Newsgroups: comp.lang.perl,alt.sources
Subject: replacing " with `` and ''
Message-ID: <[e-mail]>
Date: 4 May 91 03:59:42 GMT

Here's a little script I wrote when I needed to typeset some documents
that had been written with a word processor.  Anyone have a better way
to do this in perl?

#!/usr/local/bin/perl
# Change " to `` and '' for typesetting.
# Leave unchanged lines that start with `.', `'', or `\"',
# because they are probably troff code.
# David MacKenzie, [e-mail]

$leftquote = 1;
while (<>) {
    if (!(/^[.\']/ || /^\\\"/)) {
    while (/\"/) {
        if ($leftquote) {
        s/\"/\`\`/;
        } else {
        s/\"/\'\'/;
        }
        $leftquote = !$leftquote;
    }
    }
    print;
}
--
David J. MacKenzie <[e-mail]> <[e-mail]>