$ibuf_display = sprintf("%x ", ord(substr($ibuf, 1, 1)));
[download]

(my $hex = unpack("H*", $buf)) =~ s/(..)/$1 /g;
print $hex, "\n";
[download]

Thank you to you and the others. The responses have been very helpful.

I am still having trouble with the if() conditionals. Error messages such as "Argument "^C" isn't numeric in numeric eq(==) at (file_name) line (line_num)" suggest that I am both correctly receiving the serial data and that I am correctly "substr"-ing the data. But that leaves me a little confused and lost. As far as I know Perl does not have "int" and "char" data types like the C language. So, since I don't think data types exist (am I wrong?) I don't know of a way to convert data types.

I could try "thinking strings" and use "eq" and hope to find escape sequences for all byte values from 0x00 to 0xff. This seems like a huge amount of work to create a huge failure.

I could use "ord" to convert data to ASCII-HEX digits and do my comparisons to "A", "C", "F3", etc. This seems like it would probably work but it seems like using a bulldozer to move an ant hill.

Any suggestions on both how to write the code and what is going on? My "this is impossible in Perl" response means that this is a good chance to learn something.

Thanks,
Bruce

P.S. Is there a proper term for items such as "F3" that I want to display? I called it ASCII-HEX and one of the kind people responding to my question called them ALPHA. I have had many discussions of this in the past (big number) years. It is not exactly "HEX" since the "F3" is actually 0x46 and 0x33. I sometimes refer to it as the "ASCII text representation of the hex number" but saying that over and over in a planning meeting (or argument) can get old very fast. Actually, it is not exactly representing a hex number since it is really representing a binary pattern of 11110011. ... Kind of trivial until you have to write a document or coordinate the work of several people.

sub DecodeBCD {
# Convert a string of hex digits such as "x\12x\34x\56"
# into a string of ASCII characters such as "123456".
    my $str = shift;
    my $hex;
    $hex .= sprintf "%02x", ord
        for split //, $str;
    return $hex;
} # End of Sub DecodeBCD

sub DecodeBCA {
# Convert a string of packed ALPHA digits such as "x\BDx\CCx\FF"
# into a string of ASCII characters such as "BDCCFF".
    my $str = shift;
    my $hex;
    if (length($str) > 0) {
       $hex .= sprintf "%02x", ord
           for split //, $str;
    } else {
       $hex = 0;
    }
    return $hex;
} # End of Sub DecodeBCD  
[download]