Đây là cách cuối cùng tôi chọn
Cảm ơn câu trả lời của Gilles !
strace -s 9999 -e read -ffp $(sed '/ttyUSB0/s/^.*proc.\([0-9]\+\).fd.*/\1/p;d' <(ls -l /proc/[1-9]*/fd/* 2>/dev/null)) 2>&1 | perl -e '$|=1;my %qa=('a'=>7,'b'=>10,'e'=>33,'f'=>14,'n'=>12,'r'=>15,'t'=>11);sub cnv { my $ch=$_[0];$ch=$qa[$1] if $ch=~/([abefnrt])/;return chr(oct($ch)); };while (<>) { /^read.\d+,\s+"(.*)",\s\d+.*$/ && do { $_=$1;s/\\(\d+|[abefnrt])/cnv($1)/eg;print; };};'
Xin lỗi, tôi sẽ giải thích ...
strace -s 9999 -e read -ffp $(
sed "/tty${1:-USB0}/s/^.*proc.\([0-9]\+\).fd.*/\1/p;d" <(
ls -l /proc/[1-9]*/fd/* 2>/dev/null
)
) 2>&1 |
perl -e '
$|=1;
my %qa=('a'=>7,'b'=>10,'e'=>33,'f'=>14,'n'=>12,'r'=>15,'t'=>11);
sub cnv {
my $ch=$_[0];
$ch=$qa[$1] if $ch=~/([abefnrt])/;
return chr(oct($ch));
};
while (<>) {
/^read.\d+,\s+"(.*)",\s\d+.*$/ && do {
$_=$1;
s/\\(\d+|[abefnrt])/cnv($1)/eg;
print;
};
};
'
- Tôi sử dụng
ls -l /proc/[0-9]*/fd/* | grep ttyUSB0
thay lsof ttyUSB0
vì bởi vì tôi thấy chúng đôi khi chậm.
- Vì vậy, strace sẽ theo dõi chương trình hiện tại bằng cách sử dụng
ttyUSB0
- Cú pháp:
tty${1:-USB0}
sẽ cho phép, được sử dụng như một tập lệnh, để chạy sau đó với tên thiết bị nối tiếp làm đối số: ttySniff USB0
hoặc ttySniff S0
v.v.
- Kịch bản Perl sẽ
unbackslash
chuỗi đăng nhập bởi strace
.
Nota: Tôi chạy chúng bằng cách sử dụng script -t
để tôi có thể phát lại toàn bộ và theo dõi các lần thực hiện thời gian.