連想配列：インデックスが任意の数字や文字
hash01.pl
#!/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}";
hash02.pl
#!/usr/bin/perl
%a=("a","i","b","ro",30,"ha"); #連想配列を一度に定義
print "$a{'a'} $a{'b'} $a{30}";
hash02.plは、以下のようにも書ける。
hash03.pl
#!/usr/bin/perl
%a=qw(a i b ro 30 ha); #連想配列を一度に定義
print "$a{'a'} $a{'b'} $a{30}";
hash05.pl
#!/usr/bin/perl
%a=(a => i, b => ro, 30 => ha);
#キーと値の間のコンマのかわりに =>
print "$a{'a'} $a{'b'} $a{30}";
keys01.pl
#!/usr/bin/perl
%a=("a","i","b","ro",30,"ha"); #連想配列を一度に定義
@b=keys(%a); #キーのリストを@bに代入
$c=keys(%a); #連想配列の要素数
print "@b \n$c";
values01.pl
#!/usr/bin/perl
%a=("a","i","b","ro",30,"ha"); #連想配列を一度に定義
@b=values(%a); #要素のリストを@bに代入
print "@b";
delete01.pl
#!/usr/bin/perl
%a=("a","i","b","ro",30,"ha"); #連想配列を一度に定義
delete($a{30}); #キーが"30"の要素を削除
@b=keys(%a);
print "@b";
|
|||
|
|