哪位同仁有Apache+Perl做CGI的，帮忙Run一下这个程序（分别使用GET和POST）？

**folklore** · 10-07-24, 16:02

　最近写一个WebServer，我想看看环境变量被如何设置了，以便支持Perl～但手上没有环境。十分感谢！

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

10-07-24, 16:02	第 1 帖
folklore 注册会员注册日期: Nov 2003 我的住址: FuJian 帖子: 573 精华: 2	标题: 哪位同仁有Apache+Perl做CGI的，帮忙Run一下这个程序（分别使用GET和POST）？　最近写一个WebServer，我想看看环境变量被如何设置了，以便支持Perl～但手上没有环境。十分感谢！　 #!/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; __________________ Gamma Fork ---------------------------------------- Then am I A happy fly If I live OR if I die

欢迎来到LinuxSir.Org!
您还未登录，请登录后查看论坛，或者点击论坛上方的注册链接注册新账号。