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

评论 (0) All

登陆 还没注册？