fixed to deal with siproxd "buffer dump" that includes leading spaces.

This commit is contained in:
Thomas Ries 2005-10-09 20:35:35 +00:00
parent 2311cca685
commit 886df531f8

View File

@ -17,7 +17,9 @@ while (<>) {
chomp;
# cut out the hex digits and store them into an array
my @hex=split(/ /, substr($_, 2, 47));
my $line=$_;
$line =~ s/^ *//;
my @hex=split(/ /, substr($line, 0, 50));
for (my $i=0; $i<16; $i++) {
# write HEX byte as character