| 利用Perl列出系统环境变量清单范例 |
|
作者:-①℃冰洁… 文章来源:本站原创 点击数: 更新时间:2007-4-26 17:47:07  |
#!/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;
|
| 文章录入:范有昌 责任编辑:范有昌 |
|
上一篇文章: 使用Perl连接Access数据库详解 下一篇文章: C Java PHP Perl Python的程序代码美化工具 |
| 【字体:小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |