ベストアンサー1
これはおそらくターミナルエスケープシーケンスです。これを抽出して1つずつ印刷して、特定のシーケンスが衝突を引き起こしているかどうかを確認できます。
#!/usr/bin/env perl
use strict;
use warnings;
# turn off any encoding foo
use open IO => ':raw';
# "slurp" mode for whole file reads
local $/;
# for any STDIN or files given to us...
while (readline) {
# extract ESC-followed by a number of not-ESC not-NUL characters...
while (m/(\e[^\e\0]+)/g) {
printf "what does '%vx' do?\n", $1;
print $1;
# is a listing borked or not?
print qx(ls);
sleep 1;
}
}