尝试:
perl -pe 's/^((?:(?>(?:\e\[.*?m)*).){50}).*/$1\e[m/'
Run Code Online (Sandbox Code Playgroud)
这假设 ansi 类型的转义序列。
这些带有转义序列,例如\e[31m设置颜色和/\e[m或\e[0m重置颜色。上面,我们\e[m在每一行的末尾添加,但根据输入,这可能并不总是可取的。
| 归档时间: |
|
| 查看次数: |
617 次 |
| 最近记录: |