Help for this page

Select Code to Download


  1. or download this
    @ary[1,100,500,1000] = (1) x 4;
# Iterate a sparse array
exists($ary[$_]) and print "$_\n" for 0 .. $#ary;
# Iterate a normal array
print "$_\n" for @ary
  2. or download this
    Elt No. 994  0x4284
SV = NULL(0x0) at 0x4284
...
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1