在 wamp 中运行 CGI 脚本,不起作用

发布于 2024-12-28 08:01:04 字数 1520 浏览 0 评论 0原文

我想在wamp中运行cgi。我按照此链接中的说明进行操作

http://www. chromicdesign.com/2009/05/setting-up-perl-for-wampp.html

这是我的 html 代码

<HTML>
<BODY>
<FORM METHOD="POST" ACTION="./cgi-bin/myscript.cgi">
<PRE>
    First Name  <INPUT TYPE="text" NAME="fname" MAXLENGTH=15 SIZE=15>
    Last Name   <INPUT TYPE="text" NAME="lname"  MAXLENGTH=20 SIZE=20> 
    E-Mail Addr <INPUT TYPE="text" NAME="email"  MAXLENGTH=35 SIZE=35>         
                <INPUT TYPE="submit" VALUE="Send Mail!">
                <INPUT TYPE="reset" value=" Clear-Form">
</PRE>
</FORM>
</BODY>
</HTML>

和我的 CGI 脚本

#!/usr/bin/perl
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item(@pairs)
 {
  ($key,$content)=split(/=/,$item,2);
  $content=~tr/+/ /;
  $content=~s/%(..)/pack("c",hex($1))/ge;
  $fields{$key}=$content;
 }                                       
print "Content-type: text/html\n\n"; 
print "<HTML>\n";
print "<BODY BGCOLOR=#FFFFFF>\n";
print "<CENTER>\n";
print "THANK YOU<BR>\n";
print "$fields{fname} $fields{lname}</BR>";
print "I will write<BR>\n";
print "you at<BR>\n";
print "$fields{email}<BR>\n";
print "</CENTER>\n";
print "</BODY></HTML>";

每当我运行它时都会出现内部服务器错误。我不知道该怎么办。

请帮帮我

I want to run cgi in wamp. I followed the instructions in this link

http://www.chromicdesign.com/2009/05/setting-up-perl-for-wampp.html

Here is my html code

<HTML>
<BODY>
<FORM METHOD="POST" ACTION="./cgi-bin/myscript.cgi">
<PRE>
    First Name  <INPUT TYPE="text" NAME="fname" MAXLENGTH=15 SIZE=15>
    Last Name   <INPUT TYPE="text" NAME="lname"  MAXLENGTH=20 SIZE=20> 
    E-Mail Addr <INPUT TYPE="text" NAME="email"  MAXLENGTH=35 SIZE=35>         
                <INPUT TYPE="submit" VALUE="Send Mail!">
                <INPUT TYPE="reset" value=" Clear-Form">
</PRE>
</FORM>
</BODY>
</HTML>

And my CGI script

#!/usr/bin/perl
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item(@pairs)
 {
  ($key,$content)=split(/=/,$item,2);
  $content=~tr/+/ /;
  $content=~s/%(..)/pack("c",hex($1))/ge;
  $fields{$key}=$content;
 }                                       
print "Content-type: text/html\n\n"; 
print "<HTML>\n";
print "<BODY BGCOLOR=#FFFFFF>\n";
print "<CENTER>\n";
print "THANK YOU<BR>\n";
print "$fields{fname} $fields{lname}</BR>";
print "I will write<BR>\n";
print "you at<BR>\n";
print "$fields{email}<BR>\n";
print "</CENTER>\n";
print "</BODY></HTML>";

Whenever i run it gives INERNAL SERVER ERROR. I don't know what to do.

Please help me out

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(1

情痴 2025-01-04 08:01:04

要了解发生了什么,您应该查看 Apache 错误日志。但这里的问题很可能是脚本中的 shebang 行没有查看实际的 perl 安装

to understand what happened you should look into Apache error log. But here the problem is most probably that the shebang line in your script does not look at the actual perl installation

~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文