13 lines
410 B
Perl
13 lines
410 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $variable = 9;
|
||
|
|
my $reference1 = \$variable;
|
||
|
|
print( "$variable, $reference1, $$reference1\n" );
|
||
|
|
my $reference2 = \$reference1;
|
||
|
|
print( "$variable, $reference1, $$reference1, $reference2, ", "$$reference2, $$$reference2\n" );
|
||
|
|
my $reference3 = \\\\$variable;
|
||
|
|
print( "$reference3, $$reference3, $$$reference3,\n", " $$$$reference3, $$$$$reference3\n" );
|