hash_ref_test.pl

hash_ref_test.pl

use strict;
use warnings;

my %hash = (
    hoge => 33,
    var => 44,
    foo => 55,
);

my $ref = {
    fuga => 66,
    piyo => 77,
    nyaa => 88,
};

my $result1 = $hash{var};
my $result2 = $hash->{var};
my $result3 = $ref{nyaa};
my $result4 = $ref->{nyaa};

print "$result1\n";
print "$result2\n";
print "$result3\n";
print "$result4\n";