From: Florian Frank <flori@...>
Date: 2003-12-21T06:01:11+09:00
Subject: Re: replacing two EOL chars by one

On Sat, 2003-12-20 at 21:06, Xah Lee wrote:
> Now may i ask those who wallow in unix and perl: How do you do this?

-p iterates over every line in a file. So you should change
the line separator if you want this to work. Try this:

perl -0 -p -i~ -e 's/\n\n/\n/g' *.java

-- 
o=lambda{|o|p o};O=Struct.new(:a,:b,:c);e=%q(_(?h,_(?h,_(?\ ,_(?s,_(?u,_(74)),
_(?t)),_(?t,_(?o,_(?n,_(?a))))),_(82,_(?r,_(?e),_(32)),_(32,_(98,_(?u),_(?y)))
)),_(?r,_(99,_(97),_(?k,nil,_(?e))),_(10))));def _(*a)O.new(*a)end;class O;def
e(&o)b&&b.e(&o);o[a];c&&c.e(&o)end;end;def p(o)print(''<<o)end;eval(e).e(&o)