ANSI移動文字ESC [xCとESC [xD]を含むテキストをパイプしてその形式でテキストを出力する方法

Question

私はより良い方法があると確信していますが（そしてより良い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 $_}'

Answer 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 $_}'

ANSI移動文字ESC [xCとESC [xD]を含むテキストをパイプしてその形式でテキストを出力する方法

ベストアンサー1

おすすめ記事