程嶏清单10-5.txt

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

@fruit = {"apple","banana","peach","orange"};
$fruitRef = \@fruit;
print "The fruits are @$fruitRef."；