Perlのリファレンス参照
Perlでは変数などのアドレスは名前の前に\を付ければとる事が出来る。
アドレスからデータを参照する場合は$を付ける。
例1
my $name = "sodomojo";
my $address = \$name;
print "$name $address $$address\n";
#結果
#sodomojo SCALAR(0x9406bf0) sodomojo
例2
my $name = "sodomojo";
print "$name\n";
change_name(\$name);
print "$name\n";
sub change_name(){
my ($name) = @_;
$$name = "hatena";
}
#結果
#sodomojo
#hatena