程嶏清单4-2.txt

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

%associativeArray = ("Jack A.", "Dec 2", "Joe B.",
 "June 2", "Jane C.", "Feb 13");
$associativeArray{"Jennifer S."} = "Mar 20";
print "Joe's birthday is: " . $associativeArray{"Joe B."} . "\n";
print "Jennifer's birthday is: " . $associativeArray{"Jennifer S."} . "\n";