PGM->Perl/配列リスト出力 - プログラミングの勉強をしよう@Wiki

Top > PGM->Perl > 配列リスト出力

配列リスト出力

@配列のリスト出力

# @list変数にリスト設定
@list = (100, 200, 300);
 
# 配列の値出力
foreach $var (@list){
	# listのデータをvar変数に格納して出力
	print "Key = $var\n";
}
 

100
200
300
 

%連想配列のリスト出力(keyのみ)

# @list変数にリスト設定
# 設定
%hash = ('k1' => 100, 'k2' => 200, 'k3' => 300);
 
# リスト出力
foreach $key (keys %hash){
	print "$key $hash{$key}\n";
}
 

k2 200
k1 100
k3 300
 

%連想配列のリスト出力(valueのみ)

# 設定
%hash = ('k1' => 500, 'k2' => 700, 'k3' => 100);
 
# リスト出力
foreach $value (values %hash){
	print "$value\n";
}
 

700
500
100
 

%連想配列のリスト出力(key、value)

%hash = ('aaa' => 100, 'bbb' => 200, 'ccc' => 600);
 
# リスト出力
while(($key, $value) = each %hash){
	print "$key : $value\n";
}
 

bbb : 200
aaa : 100
ccc : 600
 

---