看例子学perl--2

Hash数组（注：以%开头命名变量）

%fruit = ("red", "apple", "yellow", "banana", "purple", "grape");
print "$fruit{'red'} /n";

<出力結果>
apple

注：$fruit{'red'}

---

函数	意思
keys	取出所有的KEY值
values	取出所有的VALUE值
each	按组取出KEY值
delete	删除

 

 

---

 

%fruit = ("red", "apple", "yellow", "banana", "purple", "grape");
@file = keys (%fruit);
print "@file /n";

<出力結果>
purple yellow red

注：此外数组的形式

 

---

 

%fruit = ("red", "apple", "yellow", "banana", "purple", "grape");
@file = values (%fruit);
print "@file /n";

<出力結果>
grape banana apple

 

---

 

%fruit = ("red", "apple", "yellow", "banana", "purple", "grape");
($key, $val) = each (%fruit);
print " キー $key 値 $val /n";

<出力結果>
キー purple 値 grape

注：这里只取出一组，并且取出的数据是不定的

 

---

%fruit = ("red", "apple", "yellow", "banana", "purple", "grape");
while ( ($key, $val) = each (%fruit) ) {
       print " キー $key 値 $val /n";
}

<出力結果>
キー purple 値 grape
キー yellow 値 banana
キー red 値 apple

 

注：循环取出

 

---

 

%fruit = ("red", "apple", "yellow", "banana", "purple", "grape");
delete $fruit{"yellow"};

while (($key, $val) = each (%fruit)) {
       print " キー $key 値 $val /n";
}

<出力結果>
キー purple 値 grape
キー red 値 apple

 

---

 

控制流程：

$i = 3;
while ($i > 0) {
       print " カウントダウン : $i /n";
       $i--;
}

<出力結果>
カウントダウン : 3
カウントダウン : 2
カウントダウン : 1

 

---

foreach $i (3, 2, 1) {
       print " カウントダウン : $i /n";
}

<出力結果>
カウントダウン : 3
カウントダウン : 2
カウントダウン : 1