Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -e '               
(@n=(1,2) && ($n[1],$n[0]));                  
...
@n = ('???', 2) && ($n[1], $n[0]);
@n = ('???', 2) && ($n[1], $n[0]);
@n = ('???', 2) && ($n[1], $n[0]);
  2. or download this
    perl -MO=Deparse -e '
(@n=(1,2) && ($n[1],$n[0]));
...
@n = ('???', 2) && ($n[1], $n[0]);
$n[1], $n[0] if @n = (1, 2);
$n[1], $n[0] if @n = (1, 2);
  3. or download this
    perl -MDevel::Peek -le '
(@n=(1,2) && ($n[1],$n[0])); print Dump \@n;
...
    SV = UNKNOWN(0xff) (0x0) at 0x3c006264
      REFCNT = 1
      FLAGS = ()
  4. or download this
    SV = NULL(0x0) at 0x3c006168
  5. or download this
    SV = UNKNOWN(0xff) (0x0) at 0x3c006168