Select Code to Download

#/user/bin/perl
use strict;
...
my $pckhex = "0x" . (unpack 'H16', "$pckval");
my $stoval = "$pckval" ^ 0x80;
my $stohex = "0x" . (unpack 'H16', "$stoval");

print "\$intval = 66;  # \$intval = [$intval]  -  Expecting [66]\n";
print "\$pckval = pack 'c', $intval;  # \$pckval = [$pckval]  -  Expec
+ting [B]\n";
print "\$pckhex = \"0x\" . (unpack 'H16', \"$pckval\");  # \$pckhex = 
+[$pckhex]  -  Expecting [0x42]\n";
print "\$stoval = \"$pckval\" ^ 0x80;  # \$stoval = [$stoval]  -  Expe
+cting [194]\n";
print "\$stohex = \"0x\" . (unpack 'H16', \"$stoval\");  # \$stohex = 
+[$stohex]  -  Expecting [0xc2]\n";

W:\Steve\PerlMonks>perl tpm.pl
$intval = 66;  # $intval = [66]  -  Expecting [66]
...
$stohex = "0x" . (unpack 'H16', "128");  # $stohex = [0x313238]  -  Ex
+pecting [0xc2]

W:\Steve\PerlMonks>