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

SEA

2011-01-27 11:50

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

Hallo Perl-Community,

ich möchte abhängig vom Ende einer Zeile und vom Anfang der nächsten Zeile eine Ersetzung durchführen. Aber es will einfach nicht ...

Versuch 1:

Code: (dl )

echo "a#b#c#d" | tr '#' '\n' | perl -pe 's/b\nc/bc/g'

Versuch 2:

Code: (dl )

echo "a#b#c#d" | tr '#' '\n' | perl -pe 's/b$^c/bc/mg'

Gewollte Ausgabe:

Code: (dl )

1
2
3

a
bc
d

Weiß jemand eine Lösung?

(Ubuntu 10.10, Perl v5.10.1)

Viele Grüße
SEA