Perl脚本示例程序

1.打印环境变量

#!/usr/bin/perlwhile(($key, $value) = (each %ENV)){    print "$key=$value\n"}

%ENV是一个哈希变量，存储所有的环境变量。