Opened by SEA at 2011-01-27 11:50
Code (perl): (dl
)
echo "a#b#c#d" | tr '#' '\n' | perl -ne 'if($last){ $m="$last$_"; print $m=~s/b\nc/bc/g?$m:$last;} $last=$_; END{print $last}'
Last edited: 2011-01-27 17:38:38 +0100 (CET)
|
Thread Entfernen eines Zeilenumbruchs in Abhängigkeit vom Zeilenende und darauffolgenden Zeilenanfang
(6 answers)
Opened by SEA at 2011-01-27 11:50 Code (perl): (dl
)
echo "a#b#c#d" | tr '#' '\n' | perl -ne 'if($last){ $m="$last$_"; print $m=~s/b\nc/bc/g?$m:$last;} $last=$_; END{print $last}' Last edited: 2011-01-27 17:38:38 +0100 (CET) |