Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
printf "orig: %d clone %d\n",
    scalar(@{$$orig{array}}),
    scalar(@{$$clone{array}});
  2. or download this
    Clone: 0.29 Data::Dumper 2.121_14
orig: 3 clone 0
  3. or download this
    Clone: 0.29 Data::Dumper 2.121_14
orig: 3 clone 3