How to make partial reference in Perl.

Readme.md

Perl での部分参照の作り方。

partial_reference.pl

#!/usr/bin/perl

use strict;

my $whole_string = "aiueo";
my $partial_reference = \substr ($whole_string,2,2);

print "The value of partial reference is: " . $$partial_reference . "\n";

$$partial_reference = "12";

print "The whole value has been changed to: " . $whole_string . "\n";