4.3.4 keys

取出雜湊的鍵,傳回一個陣列

#! /usr/bin/perl

%A=("m", 1, "n", 5, "g", 2, "p", 9);

@keys = keys %A;

print '雜湊 %A 的鍵有: ';
foreach (@keys) {
	print "$_ ";
}

# 註: $_ 是預設變數,代表每一個取出的鍵

上式,其實等同於:

foreach $item (@keys) {
	print "$item ";
}


可以寫的更簡潔一點:

#! /usr/bin/perl

%A=("m", 1, "n", 5, "g", 2, "p", 9);

print '雜湊 %A 的鍵有: ';

foreach (keys %A) {
	print "$_ ";
}

# 輸出:雜湊 %A 的鍵有: p n g m