in reply to (MeowChow) Re2: Look ahead and join if the line begins with a +
in thread Look ahead and join if the line begins with a +

Ahmm 

# vulgar AND broken
my @lines;
$lines[@lines - s/^\+//] .= $_ while <DATA>;
print @lines
__DATA__
This 
+is 
+supposed 
+to 
+be 
+one 
+line!
Oops

[download]

I'm sure that this is what you meant, but even this is broken as it will possibly remove the last char in the file if their is no trailing newline. 

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

[download]

This will work: 

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

[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Replies are listed 'Best First'.
(MeowChow) Re4: Look ahead and join if the line begins with a +
by MeowChow (Vicar) on Apr 11, 2002 at 09:40 UTC
    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
[reply]
[d/l]
[select]

      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]
        Well, didn't I say it was a vulgar solution? :-) 
           MeowChow                                   
               s aamecha.s a..a\u$&owag.print
[reply]

In Section Seekers of Perl Wisdom