程嶏清单4-6.txt

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

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