程嶏清单11-10.txt

< linux网络编程工具>>配套源码

%fred ("fruit1") = "apple";    # 建立或更新一个元素
delete $fred {"fruit1"}     # 删除key值为＂fruit1＂的元素
$key  (keys %fred)  {     # 扫过所有的值
    print "$keys has value of $fred{$key} \n";
}