程嶏清单9-91.txt

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

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