利用Perl列出系统环境变量清单范例

时间：2006-08-27 09:34:26 来源：Linux联盟收集作者：

#!/usr/bin/perl
　　#安装说明:
　　#复制程序代码,并存成env.cgi
　　#以ascii模式上传至主机cgi-bin目录后将属性改成755
　　$|=1;
　　print "Content-type: text/html\n\n";
　　print "<html><head><title>环境变量清单</title>\n";
　　print "</head>\n";
　　print "<body>\n";
　　print "<table border=1>\n";
　　print "<tr>\n";
　　print "<td>变量名称</td>\n";
　　print "<td>目前状况</td>\n";
　　print "</tr>\n";
　　foreach $fieldname(keys %ENV){
　　print "<tr>\n";
　　print "<td>$fieldname</td>\n";
　　print "<td>$ENV{$fieldname}</td>\n";
　　print "</tr>\n\n";
　　}
　　print "</table>\n";
　　print "</body></html>\n";
　　exit;

来顶一下

返回首页

相关文章

无相关信息

栏目更新

栏目热门