perl／無名配列のリファレンスとデリファレンス、無名ハッシュのリファレンス

時間がないので、実験したコードだけとりあえず載せておきます。解説は、復習をかねて明日。

#! usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# 無名配列のリファレンスをprintしてみる。
my $ref_array=[
    [1,2,3],
    ['a','b','c','d'],
    ['a3e4','rg64','gfs564','gf753','df7643','sdv76']
];

print $ref_array,"\n";# 出力結果=>ARRAY(0x8018f0)
print "\n";
print Dumper $ref_array;

my @array1=(
    3,  
    'fb7s8',
    [555,666,777,111,'dko69ls']
);

print "@array1\n";# 出力結果=>3 fb7s8 ARRAY(0x801770)
print "\n";
print Dumper \@array1;


# 無名ハッシュのリファレンスをprintしてみる
my $ref_hash={
    'ko'=>'ma',
    'go'=>'went',
    'she'=>'her'
};

print $ref_hash,"\n";# 出力結果=>HASH(0x801a58)
print Dumper $ref_hash;
print "\n";

my %ref_hash=(
    {   
        'a'=>'AA',
        'b'=>'BB',
        'c'=>'CC'
    }=>99999,
    'hello'=>'greeting',
    123=>'abc'
);

foreach (keys(%ref_hash)){
    print "$_=>$ref_hash{$_}\n";
};

print "\n";
print Dumper \%ref_hash;
print "\n";

# 配列のデリファレンスをprintしてみる
print $$ref_array[1][1],"\n";# 出力結果=>b
print ${$array1[2]}[2],"\n";# 出力結果=>777