Help for this page

Select Code to Download


  1. or download this
    >perl -le"($x,$y)=map 0+$_,  @ARGV; print $x|$y;" 2 8
    10
    
    >perl -le"($x,$y)=map ''.$_, @ARGV; print $x|$y;" 2 8
    :
    
  2. or download this
    my @nums = map 0+$_, split /,/;
    
  3. or download this
    >perl -e"use Devel::Peek; my $x=123; Dump($x);"
    SV = IV(0x1826628) at 0x225350
    ...
      CUR = 3
      LEN = 4