Kevin Zembower <[EMAIL PROTECTED]> wrote:
> I'm facing what I believe to one of the classic text manipulation
> problems, transforming a document which was typed with a hard return
> at the end of every physical line, and two consecutive newlines to
> mark the end of a paragraph.
>
> Would anyone help me write a program which would transform these
> documents? I'm trying to find all instances of a single newline,
> and remove it, either inserting or removing space characters around
> where it was to leave just one space between what was the two lines.
> I also need to substitute a single newline for two or more consecutive
> newlines,
$ perl -pi~ -00 -le 'BEGIN{ $\="\n" } s/\s*\n\s*/ /g' file.txt
> whether or not they're separated by whitespace characters.
Well. That's a bit trickier, since you can't use paragraph-mode.
#!/usr/bin/perl -pi~ -0777
# [untested:]
s{ /s*? /n (\s*) }
{ $1 =~ tr/\n // ? "\n" : " " }xeg
--
Steve
perldoc -qa.j | perl -lpe '($_)=m("(.*)")'
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
