Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
print "shallow[2][1]: $shallow_original->[2][1]\n";
print "deep[2][1]: $deep_original->[2][1]\n";
print "clone[2][1]: $clone_original->[2][1]\n";
  2. or download this
    original: 1 42 ARRAY(0x80cf9a4)
shallow: 1 42 ARRAY(0x80cf9a4)
...
shallow[2][1]: 77
deep[2][1]: 77
clone[2][1]: 4