程嶏清单9-9.txt

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

sub outer {
    my $x = $_[0] + 35;
    local *inner = sub { return $x * 19 };
    return $x + inner();
} 
$number = 25;
print outer($number);