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

2008-05-19 06:25:45  編輯來源:互聯網  简体版  手機版  評論  字體: 小|中|大

 

 

　　#!/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;

　　

 

 

 

　　#!/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;