Entfernen eines Zeilenumbruchs in Abhängigkeit vom Zeilenende und darauffolgenden Zeilenanfang (gelöst) - #145069 (Allgemeines zu Perl)

SEA

2011-01-27 13:32

User since
2006-10-06
6 Artikel
BenutzerIn
[default_avatar]

Ok, danke dir!

Code: (dl )

echo "a#b#c#d" | tr '#' '\n' | perl -pwe 'BEGIN { $/ = undef } s/b\nc/bc/'

... funktioniert genau so, wie ich mir das vorgestellt habe.

Ich habe noch eine zweite Lösung:

Code: (dl )

echo "a#b#c#d" | tr '#' '\n' | perl -e '@_ = <STDIN>; $_ = join("", @_); s/b\nc/bc/g; print $_;'

Viele Grüße
SEA