perl输出环境变量

windows中my computer-->advanced->envirenment查看总是看得不是很清楚

刚做MTK平台上的开发时,老是遇到工具安装不正确的问题,大多时候是因为环境变量没设好

本程序提供将环境变量输出到一个文本里便于查看确认

#!/usr/local/bin/perl

open(MYFILE,">env.txt");

foreach $field (keys(%ENV))

{

print MYFILE "\n\n";

print MYFILE "$field\n";

print MYFILE "$ENV{$field}\n";

print MYFILE "\n\n";

}

close(MYFILE);