![](https://seccdn.libravatar.org/avatar/647253703d20800a3d8b000f653fb88e.jpg?s=120&d=mm&r=g)
Hajo C Jeske wrote:
Hallo Leute,
um mal langsam in gcc reinzukommen, suche ich ein hexdump mit Source, um es einem konkreten Problem anzupassen.
Auf freshmeat war lediglich ein 'hexedit', was mir eigentlich schon zu weit geht.
Hat jemand einen Tip? Danke! Auch gern in's PM, ist ja wohl unter Level dieser Liste.
Jeder faengt mal klein an; bin gerade dabei ;-)
Funzt bei mir sehr gut ! ----------------------------Cut here------------------------------ #!/usr/local/bin/perl # # Usage: xdump <file> # open(STDIN,$ARGV[0]) || die "Can't open $ARGV[0]: $!\n" if $ARGV[0]; while (($len = read(STDIN,$data,16)) == 16) { @array = unpack('N4',$data); $data =~ tr/\0-\37\177-\377/./; printf "%8.8lx %8.8lx %8.8lx %8.8lx %8.8lx %s\n", $offset, @array,$data; $offset += 16; } if ($len) { @array = unpack('C*',$data); $data =~ y/\0-\37\177-\377/./; for (@array) { $_ = sprintf('%2.2x',$_); } push(@array,' ') while $len++ < 16; $data = ~ s/[^ -~]/./g; printf "%8.8lx ",$offset; printf "%s%s%s%s %s%s%s%s %s%s%s%s %s%s%s%s %s\n", @array,$data; } printf "%8.8lx %8.8lx %8.8lx %8.8lx %8.8lx %s\n", $offset, @array,$data; --------------------Cut here-------------------------------------- Daniel --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com