16 lines
358 B
Perl
16 lines
358 B
Perl
|
|
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $variable = 10;
|
|
my $reference = \$variable;
|
|
|
|
print( "\$variable = $variable\n" );
|
|
print( "\$reference = $reference\n" );
|
|
print( "\$\$reference = $$reference\n" );
|
|
$$reference++;
|
|
print( "\$variable = $variable\n" );
|
|
print( "\$reference = $reference\n" );
|
|
print( "\$\$reference = $$reference\n" ); |