Help for this page

Select Code to Download


  1. or download this
    Argument "B" isn't numeric in numeric bitwise xor (^) at 1.pl line 10.
  2. or download this
    use feature qw( bitwise );
  3. or download this
    my $stoval = "$pckval" ^. 0x80;
  4. or download this
    $stoval = "B" ^. 0x80;  # $stoval = [s28]  -  Expecting [194]
$stohex = "0x" . (unpack 'H16', "s28");  # $stohex = [0x733238]  -  Ex
+pecting [0xc2]
  5. or download this
    my $stoval = $pckval ^ "\x80";
# or
...
# or
my $stoval = $pckval ^ pack 'C', 0x80;
# ...