程嶏清单4-6.txt

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

@keys   = keys   %ENV;      
@values = values %ENV;      
while (@keys) {
    print pop(@keys), '=', pop(@values), "\n";
}
foreach $key (sort keys %ENV) {
    print $key, '=', $ENV{$key}, "\n";
}