#!/usr/bin/perl

$a{"a"}="i";    #キーが"a"で、値が"i"
$a{"b"}="ro";   #キーが"b"で、値が"ro"
$a{30}="ha";    #キーが"30"で、値が"ha"

print "$a{'a'} $a{'b'} $a{30}";

#!/usr/bin/perl

%a=("a","i","b","ro",30,"ha");    #連想配列を一度に定義

print "$a{'a'} $a{'b'} $a{30}";

#!/usr/bin/perl

%a=qw(a i b ro 30 ha);    #連想配列を一度に定義

print "$a{'a'} $a{'b'} $a{30}";

#!/usr/bin/perl

%a=(a => i, b => ro, 30 => ha);
#キーと値の間のコンマのかわりに =>

print "$a{'a'} $a{'b'} $a{30}";

#!/usr/bin/perl

%a=("a","i","b","ro",30,"ha");    #連想配列を一度に定義
@b=keys(%a);                      #キーのリストを@bに代入
$c=keys(%a);                      #連想配列の要素数

print "@b \n$c";

#!/usr/bin/perl

%a=("a","i","b","ro",30,"ha");    #連想配列を一度に定義
@b=values(%a);                      #要素のリストを@bに代入

print "@b";

#!/usr/bin/perl

%a=("a","i","b","ro",30,"ha");    #連想配列を一度に定義
delete($a{30});                   #キーが"30"の要素を削除
@b=keys(%a);

print "@b";