程嶏清单9-91.txt

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

my @nums = (0 .. 5);
sub first { 
    local $nums[3] = 3.14159;
    second();
}
sub second {
    print "@nums\n";
} 
second();
first();