|
|
|
my $s = 3.1415926;
my @a = qw(red green blue);
my %h = (I => 1, II => 2, III => 3, IV => 4);
my $rs = \$s;
my $ra = \@a;
my $rh = \%h;
print $rs, "\n";
print $ra, "\n";
print $rh, "\n";
SCALAR(0xba5e90)
ARRAY(0xba5ea8)
HASH(0xba7dd0)
print $$rs, "\n";
print $$ra[1], "\n";
print $$rh{IV}, "\n";
3.1415926
green
4
print $ra->[1], "\n";
print $rh->{IV}, "\n";
green
4 |
|
|
|
|
