zamena vice radek pomoci sed?

[Michal Chocholac]

On Wed, 25 Sep 2002, Matthes wrote:

> Me nefungoval na to, co jsem potreboval. Jiny fungujici priklad jsem zatim
> nenasel a proto jsem si dovolil poptat se v konferenci. Nicmene se
> problem uz vyresil jinak - byv odvolan na jinou praci, odskakal to
> kolega, ktery do ted kopiruje a vklada, kopiruje a vklada... Vysoce
> elegantni reseni! :)))

...a musi to byt v sedu? Me napadlo treba takovehle reseni (uznavam, ze
mozna trochu obskurni, ale - podle meho nazoru - pouzitelne):

[uzivatel na stroj adr]# cat soubor.txt | perl -e 'while (<>) {
s/(\r)?\n$/<<:nwl:>>/g; print; }' | XXX | perl -e 'while (<>) {
s/<<:nwl:>>/\n/g; print; }'

Vse je pochopitelne na jednom radku... a za "XXX" si dosadte dalsi perl
s regularnim vyrazem nebo treba i ten sed... Co?


--mch

Michal Chocholáč
mch na vosis.cz