![ANSI移動文字ESC [xCとESC [xD]を含むテキストをパイプしてその形式でテキストを出力する方法](https://linux33.com/image/225809/ANSI%E7%A7%BB%E5%8B%95%E6%96%87%E5%AD%97ESC%20%5BxC%E3%81%A8ESC%20%5BxD%5D%E3%82%92%E5%90%AB%E3%82%80%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88%E3%82%92%E3%83%91%E3%82%A4%E3%83%97%E3%81%97%E3%81%A6%E3%81%9D%E3%81%AE%E5%BD%A2%E5%BC%8F%E3%81%A7%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88%E3%82%92%E5%87%BA%E5%8A%9B%E3%81%99%E3%82%8B%E6%96%B9%E6%B3%95.png)
ESC[xCANSIモーションコードを含むファイルがあり、ESC[xDそれをフィルタリングしたいが、出力の各行でこれらのコードを考慮するようにします。
次の行を考えてみましょう。
this cat is greenESC[12DdogESC[4Cwhite
私はそれを次のように出力したい。
this dog is white
上記はESCエスケープコード\0x1b（または\033）を表します。
答え1
私はより良い方法があると確信していますが（そしてより良いPerlがあると確信しています）、これはうまくいくようです：
perl -M5';$e="\x1b";' -lne 'chomp;if(/$e\[\d+[CD]/){$ns="";$p=0;while(/$e\[(\d+)([CD])/g){if(!$ns){$ns=$`;$p=length($ns)}$p+=($2eq"C"?+$1:-$1);($a=$'"'"')=~s/(^[^$e]+).*/$1/;if($a=~/^[^$e]/){substr($ns,$p,length($a),$a);$p+=length($a)}}print $ns}else{print $_}'