Help for this page

Select Code to Download


  1. or download this
    my @array = ();
  2. or download this
    $array[1] = { val => "The initial value for 1", one => 'undef' };
$array[0] = { val => "The initial value for 0", one => \$array[1]{val}
+ };
$array[2] = { val => "The initial value for 2", one => \$array[1]{val}
+ };
$array[3] = { val => "The initial value for 3", one => \$array[1]{val}
+ };
  3. or download this
    for my $i (0 .. 3) {
    print "# $array[$i]{one}\n";
...
        print "#\t${$array[$i]{one}}\n";
    }
}
  4. or download this
    # SCALAR(0x8114938)
#     The initial value for 1
...
#     The initial value for 1
# SCALAR(0x8114938)
#     The initial value for 1
  5. or download this
    for my $i (0 .. 3) {
    $array[$i] = { val => rand(time)%3, one => \$array[1]{val} };
}
  6. or download this
    print "\n";
for my $i (0 .. 3) {
...
        print "# \t${$array[$i]{one}}\n";
    }
}
  7. or download this
    
# SCALAR(0x8114938)
...
#     0
# SCALAR(0x81adcd8)
#     0