程嶏清单4-7.txt

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

 %fruit = ("apples"=>3,"bananas"=>9, "oranges"=>2, "pears"=>4, "peachs"=>6);
         while (($fruit,$price) = each %fruit)
{
  print "The price of the $fruit is $price. \n"
          }