壳魔法想要的：在管道中输出hexdump的格式

Question

我正在调试通过TCP传输数据的程序的输出。 为了调试目的，我把它换成接收程序与netcat和hexdump：

netcat -l -p 1234 | hexdump -C 

输出的所有数据作为一个很好hexdump都可以，就像我想要的。现在的数据被以固定的块，其长度不是16的倍数传送，导致在输出中偏移线，使点样差异有点困难：

00000000 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |P...............| 
00000010 00 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |.P..............| 
00000020 00 00 50 00 00 00 00 00 00 00 00 00 00 00 00 00 |..P.............| 

如何格式化输出，使得后17个字节的新行开始了？ 它应该是这个样子：

50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |P...............| 
00            |.    | 
50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |P...............| 
00            |.    | 
50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |P...............| 
00            |.    | 

使用hexdumps -n参数不起作用，因为它会到达的字节数后退出。 （除非有办法让netcat程序继续运行，并将下一个字节无缝地连接到一个新的hexdump实例）。

另外，如果我可以在输出上使用watch -d来获得线条间变化的高亮显示，那将是非常好的选择。

Answer 1

对于没有字符部分的hexdump。

hexdump -e '16/1 "%0.2x " "\n" 1/1 "%0.2x " "\n"'

Answer 2

我用这个：

use strict; 
use warnings; 
use bytes; 

my $N = $ARGV[0]; 

$/ = \$N; 

while (<STDIN>) { 
    my @bytes = unpack("C*", $_); 
    my $clean = $_; 
    $clean =~ s/[[:^print:]]/./g; 
    print join(' ', map {sprintf("%2x", $_)} @bytes), 
    " |", $clean, "|\n"; 
} 

运行它perl scriptname.pl N其中N是你希望每个块的字节数。

Answer 3

你也可以使用xxd -p做一个hexdump。