scriptコマンドで削除した文字を残したくない

Question

scriptコマンドで取得したtypescriptから、制御文字とカラーコードを除去したものをファイルに出力させても、バックスペースで削除した文字が残ったままになるので、削除した文字を残させない(記録させない)方法を教えてください

#前提条件

• 英語と日本語を記録したい

#試したこと

script
echo hello wro
              ↑ここでバックスペースを2回入力した後、orldと入力
exit
cat typescript | sed -r "s/[\0x08]|[\0x1B]|([K)|\x1B[([0-9]{1,2}(;[0-9]{1,2})*)?m//g" | col > scriptlog.log

typescript

echo hello wroorld

scriptlog.log

echo hello wroorld

ubuntu 18.04.1 LTS (Bionic Beaver)
windows Version 10.0.17134.523

Answer 1

バックスペースを適切に処理するのは、colに-bオプションを付ければいいです。

#追記

[user@host tmp]$ LANG=C script
Script started, file is typescript
[user@host tmp]$ echo hello world
hello world
[user@host tmp]$ exit
exit
Script done, file is typescript
[user@host tmp]$ cat -v typescript
Script started on Wed Feb  6 11:42:47 2019
[user@host tmp]$ echo hello wro^H ^H^H ^Horld^M
hello world^M
[user@host tmp]$ exit^M
exit^M

Script done on Wed Feb  6 11:43:00 2019
[user@host tmp]$ col -b < typescript | cat -v
Script started on Wed Feb  6 11:42:47 2019
[user@host tmp]$ echo hello world
hello world
[user@host tmp]$ exit
exit

Script done on Wed Feb  6 11:43:00 2019
[user@host tmp]$

Comments

[otn]

あと、sedで、\0x08 \0x1B は間違い。0 が余計。だけど、\x08をここで削除したら、col -b が無意味か。

[defeatist]

`cat typescript | col -b > scriptlog.log`を実行したところ、`echo hello wrKorld`と出力されました

[otn]

バックスペースを2回打ってないのでは？元のファイルにバックスペース入ってますか？

[defeatist]

試行内容であるhello worldについては`LANG=C script`とすることで、目標を達成できました。ありがとうございます。ここで、条件の後付けとなり申し訳ないのですが、英語だけでなく日本語も扱う予定で、`LANG=C`を使用すると日本語が使えなくなるので、`LANG=C`を使用しない方法を教えていただけないでしょうか？

[otn]

これは、scriptの日本語開始終了メッセージが、cat -v すると読め無くなるので、そのために入れただけです。特にLANG=Cにする必要はないです。

[defeatist]

では前言撤回させていただきます。
`cat -v typescript`を実行すると`echo hello wro^H^[[K^H^[[Korld^M`と出力され、`col -b < typescript | cat -v`を実行すると`echo hello wrKorld`と出力されます。

[otn]

一旦削除

[otn]

失礼しました。LANGが複数バイト文字になっていると、バックスペースで ^[[K も出力されるようですね。
とりあえず、TERM=dumb screen と、エスケープシーケンスのない端末として使うとこの点に関しては大丈夫ですが、何か不都合があるかも。
col -b に頼らないでスクリプト書いた方がいい気がしてきました。

[defeatist]

cat typescript | sed -r "s/[\x1b][K|\x1B[([0-9]{1,2}(;[0-9]{1,2})*)?m//g" | col -b > scriptlog.logで目標を達成できました。ありがとうございます。

Answer 2

バックスペースで削除した文字が残ったままというのが私の環境では再現できないんですが、質問の通りの状況だとすると最後の行を次のようにしてみてはどうでしょう。

cat typescript | perl -pe 'while(/s/.\b//){}' | col > scriptlog.log

Comments

[otn]

> 私の環境では再現できないんですが、
cat typescript しているのでは？
cat -v typescript してください。

[defeatist]

ご回答ありがとうございます。