24 lines
694 B
Perl
24 lines
694 B
Perl
|
$age = 25;
|
||
|
|
@siblings = qw("A", "B", "C","D");
|
||
|
|
%home = ("owner" => "A",
|
||
|
|
"price" => "B",
|
||
|
|
"style" => "C",
|
||
|
|
);
|
||
|
|
|
||
|
|
# Create pointer
|
||
|
|
$pointer1 = \$age;
|
||
|
|
$pointer2 = \@siblings;
|
||
|
|
$pointer3 = \%home;
|
||
|
|
$pointer4 = [ qw(red yellow blue green) ]; # Create anonymous array
|
||
|
|
$pointer5 = { "A" => "a", "B" => "b", "C" => "c" };
|
||
|
|
# Create anonymous hash
|
||
|
|
|
||
|
|
|
||
|
|
print $$pointer1; # Dereference pointer to scalar;
|
||
|
|
print @$pointer2; # Dereference pointer to array;
|
||
|
|
print %$pointer3; # Dereference pointer to hash;
|
||
|
|
print $pointer2->[1];
|
||
|
|
print $pointer3->{"style"};
|
||
|
|
print @{$pointer4}; # prints elements of anonymous array
|
||
|
|
|
||
|
|
|