Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

say $i =~ /^0/ ? oct($i) : $i;
say $s =~ /^0/ ? oct($s) : $s;
  2. or download this
    25
0x00000019
...
---
25
25
  3. or download this
    pack('C', hex($gBuf{$bName}[$i]))