Re: Changing quoted strings spanning more than one line ($/)

$/= '"';
while( <> ) {
    s/\s+/ /g
        if  0 == $. % 2  &&  /\n/;
    print;
}
[download]

Update: Changed "if 0 == ( 1 & $. );" because the bit-op was a bit silly and to leave single-line strings uncollapsed.

Comment on Re: Changing quoted strings spanning more than one line ($/) Select or Download Code

Replies are listed 'Best First'.
Re^2: Changing quoted strings spanning more than one line ($/) by GrandFather (Saint) on Sep 19, 2007 at 04:01 UTC
Collapses `hello " " bill` [download] to `hello " " bill` [download] which may or may not be important to OP's workmate. DWIM is Perl's answer to Gödel	[reply] [d/l] [select]
Re^3: Changing quoted strings spanning more than one line ($/) by eyepopslikeamosquito (Archbishop) on Sep 19, 2007 at 04:19 UTC
Yes. The requirement is to not change existing strings that do not span more than one line (I updated the root node with this extra line of test data to clarify the requirements).	[reply]