Re^2: append line to previous line in txt file

Your code doesn't seem to cope with consecutive lines starting with a semi-colon and it gets a bit noisy running with use warnings; against an empty file. The following seems to work.

use strict;
use warnings;

my $acc;
while ( <> )
{
    chomp;
    if ( m{^;} )
    {
        $acc .= substr $_, 1;
    }
    else
    {
        print $acc, qq{\n} if defined $acc;
        $acc = $_;
    }
}
print $acc, qq{\n} if defined $acc;
[download]

I hope this is of interest.

Cheers,

JohnGG

Update: added defined to test to cope with lines that are empty. My test file is

;ddadadwaew
sddjdsoeugfuiegf
euefuefuerfefg
;erreuruyegfegr
ueyrueuefeyr7e

;
;
erieihir
eiereyrgueyrgh
;ieruherueu
;ierhueryugr
reieruyeruy
[download]

Comment on Re^2: append line to previous line in txt file Select or Download Code

Replies are listed 'Best First'.
Re^3: append line to previous line in txt file by pc88mxer (Vicar) on Jul 09, 2008 at 13:34 UTC
Your code doesn't seem to cope with consecutive lines starting with a semi-colon I don't understand - I think it works just fine in that case. For example, on your test file the output is: `;ddadadwaew sddjdsoeugfuiegf euefuefuerfefg;erreuruyegfegr ueyrueuefeyr7e ;; erieihir eiereyrgueyrgh;ieruherueu;ierhueryugr reieruyeruy` [download] Did you get a different result?	[reply] [d/l]
Re^4: append line to previous line in txt file by johngg (Canon) on Jul 09, 2008 at 21:23 UTC
I think the difference between our solutions is that I remove the semi-colons because, apparently, that was also a requirement that was revealed in the CB. Cheers, JohnGG	[reply]