(MeowChow) Re4: Look ahead and join if the line begins with a +

I based my code on japhy's solutions, none of which were stripping newlines, probably because Rhodium didn't specify if he wanted them removed, or the lines to be simply concatenated as-is into single list items.

$lines[ @lines + 1 - s -^\053|\012--g ] .= $_ while <DATA>;

This fails by adding an undef element to the array if a newline is not the final character in the file. Changing my original easy enough though, without any regex or substr nastiness:

chomp, $lines[@lines - s/^\+//] .= $_ while <DATA>;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Comment on (MeowChow) Re4: Look ahead and join if the line begins with a + Select or Download Code

Replies are listed 'Best First'.
Re: (MeowChow) Re4: Look ahead and join if the line begins with a + by tachyon (Chancellor) on Apr 11, 2002 at 10:06 UTC
Touche. But..... `chomp, $lines[@lines - s/^\+//] .= $_ while <DATA>; __DATA__ + Oops, Just another Edge case` [download] cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]
(MeowChow) Re6: Look ahead and join if the line begins with a + by MeowChow (Vicar) on Apr 11, 2002 at 10:11 UTC
Well, didn't I say it was a vulgar solution? :-) MeowChow s aamecha.s a..a\u$&owag.print	[reply]