程嶏清单9-9.txt

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

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