16 lines
356 B
Perl
16 lines
356 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" );
|
|
$variable++;
|
|
print( "\$variable = $variable\n" );
|
|
print( "\$reference = $reference\n" );
|
|
print( "\$\$reference = $$reference\n" ); |