Help for this page

Select Code to Download


  1. or download this
    >perl -wE "say unpack '%8C*', qq(\x{01}\x{02}\x{ff})"
2
  2. or download this
    sysread ( $FileHandle, $Buffer, $Size, $ChecksumByteOffset ) or die;
$Checksum = unpack '%C*', $Buffer;
  3. or download this
    >perl -wE "say 1 + unpack 'S', 0"
Use of uninitialized value in addition (+) at -e line 1.
1
  4. or download this
    use strict;
use warnings;
...
          Rate packing  modulo
packing 1.67/s      --    -71%
modulo  5.79/s    247%      --