程嶏清单10-1.txt

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

sub counter_maker {
    my $start = 0;
    return sub {                   
        return $start++;            
    };
}
$counter1 = counter_maker();
$counter2 = counter_maker();
for ($i = 0; $i < 5; $i ++) {
    print &$counter1, "\n";
}
print &$counter1, " ", &$counter2, "\n";