Help for this page

Select Code to Download


  1. or download this
    join ':', $x - 1, $y - 1
join ':', @_
  2. or download this
    pack 'ii', $x - 1, $y - 1
pack 'ii', @_
  3. or download this
    > perl -MO=Terse -e "split /:/, $z"
LISTOP (0x2bf88f8) leave [1]
...
        SVOP (0x645ad0) const [4] PV (0x640a80) "ii"
        UNOP (0x645a50) rv2av [2]
            PADOP (0x645a90) gv  GV (0xffb2c8) *_
  4. or download this
    for my $r ( [-123456789, 987654321], [1,2] ) {
   my $pp = pack 'ii', @{$r};
...
   $xjj == $r->[0] or die;
   $yjj == $r->[1] or die;
}
  5. or download this
    -123456789:987654321 packlen=8 joinlen=20
1:2 packlen=8 joinlen=3