程嶏清单4-5.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 12 行

%food_color = (
                Apple  => "red",
                Banana => "yellow",
                Lemon  => "yellow",
                Carrot => "orange"
               );
$food_color{Raspberry} = "pink";
print "Known foods:\n";
foreach $food (keys %food_color) {
    print "$food\n";
}