[CentOS] perl code to remove newlines
Bart Schaefer
barton.schaefer at gmail.com
Fri Dec 31 03:59:47 UTC 2010
(Drat, keyboard glitch caused that to be sent before I was finished.)
On Thu, Dec 30, 2010 at 5:19 AM, ken <gebser at mousecar.com> wrote:
>
>
> --------- begin snippet ---------
> while (<$in>)
> {
> s/<(\w*\W)/<\L$1/g; # Downcase XXX in "<XXX".
> s/<\/(\w*\W)/<\/\L$1/g; # Downcase XXX in "</XXX".
chomp; # Always remove the newline
unless (/<html/) {
# Not on first line, so insert a newline
# whenever this line does not begin with >
s/^(^[>])/\n$1/;
}
}
That's it, except for an END block to print a final newline. If there
are blank lines in the input that you want to retain, you'll need a
little more to avoid having them swallowed.
More information about the CentOS
mailing list