«

I'd like to use perl to remove all single carriage returns, but leave all
double carriage returns intact in a text file.

For example, the following:

foo bar baz
baz bar foo baz
baz

baz foo bar
baz

should become:

foo bar baz baz bar foo baz baz

baz foo bar baz

It sounds simple, but I haven't been able to figure out how to do this.
Can anyone give me a hand?

Thanks,

Steve

Quoth Steve Anderson <>:
> I'd like to use perl to remove all single carriage returns, but leave all
> double carriage returns intact in a text file.
>
> For example, the following:
>
> foo bar baz
> baz bar foo baz
> baz
>
> baz foo bar
> baz
>
> should become:
>
> foo bar baz baz bar foo baz baz
>
> baz foo bar baz
>
> It sounds simple, but I haven't been able to figure out how to do this.
> Can anyone give me a hand?

#!/usr/bin/perl

$/ = $\ = "\n\n";

while (<>) {
chomp;
s/\n//g;
print;
}

__END__

Ben

--
All persons, living or dead, are entirely coincidental.
Kurt Vonnegut

Steve Anderson <> wrote in comp.lang.perl.misc:
> I'd like to use perl to remove all single carriage returns, but leave all
^^^^^^
> double carriage returns intact in a text file.
>
> For example, the following:
>
> foo bar baz
> baz bar foo baz
> baz
>
> baz foo bar
> baz
>
> should become:
>
> foo bar baz baz bar foo baz baz
>
> baz foo bar baz
>
> It sounds simple, but I haven't been able to figure out how to do this.
> Can anyone give me a hand?

You say "remove", but from your example you want to replace isolated
line feeds with blanks.

You can use lookbehind and lookahead to make sure a line feed is neither
preceded nor followed by another:

s/(?<!\n)\n(?!\n)/ /g;

Anno

On Sun, 20 Jun 2004 12:29:20 +0000, Anno Siegel wrote:

> You say "remove", but from your example you want to replace isolated
> line feeds with blanks.

You're absolutely right, my text was wrong, my example was right. Thanks
for seeing through it, and thanks for the solution.

Steve