#print("__FILE__");
@names =keys %ENV;
foreach $Item (@names)
{
print("$Item=$ENV{$Item}\n");
}
$ENV{'CCTV'}="****cctv10******";
print("#####################################################\n");
foreach $Item (@names)
{
print("$Item=$ENV{$Item}\n");
}

1080

被折叠的 条评论
为什么被折叠?



