Help for this page

Select Code to Download


  1. or download this
    # 3-bytes, network order

...

my ($n1, $n2) = unpack('Cn', $_);
my $n = ($n1 << 16) | $n2;
  2. or download this
    # 3-bytes, network order

my $n = unpack('N', "\x00".$_);