21 lines
403 B
Perl
21 lines
403 B
Perl
#!/bin/perl
|
|
@toys = qw( A B C );
|
|
$num = @toys;
|
|
%games=("A" => "a",
|
|
"B" => "B",
|
|
"C" => "C",
|
|
);
|
|
$ref1 = \$num;
|
|
$ref2 = \@toys;
|
|
$ref3 = \%games;
|
|
|
|
print "$$ref1.\n"; # dereference pointers
|
|
print "",join(",",@$ref2), ".\n";
|
|
print "$ref2->[0].\n";
|
|
print "$ref2->[2].\n";
|
|
|
|
while(($key,$value)=each(%$ref3)){
|
|
print "$key => $value\n";
|
|
}
|
|
print "$ref3->{'C'}\n";
|