Question

perl 程序cgi如何在本地进行调试

在一个html文件中用post方法调用了一个perl cgi程序，这个动态网页是一个调查信息页面，完成信息后，点submit时浏览器没法执行cgi程序，只是弹出下载文件窗口。编译cgi时没有语法问题。
请问该怎样在编译这个程序啊：
HTML代码

<!--assume a program called 22-3.pl exist-->
<FORM METHOD=POST ACTION="22-3.pl">
Your address:<INPUT TYPE=text NAME=return_addr><BR>
Subject:<INPUT TYPE=text NAME=subject><BR>
<BR>
Message:<BR>
<TEXTAREA NAME=body ROWS=20 COLS=60 WRAP=hard>
Type your msg here
</TEXTAREA>
<BR>
<INPUT TYPE=SUBMIT VALUE="Send Message">
</FORM>
perl cgi代码：
#!C:/Perl/bin/perl.exe -w
use strict;
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

sub send_mail{
my($to,$from,$subject,@body)=@_;

use Net::SMTP;

my $relay="relayhost.yourlsp.com";
my $smtp=Net::SMTP->new($relay);
die "Could not open connection:$!" if (! defined $smtp);

$smtp->mail($from);
$smtp->to($to);

$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From:$from\n");
$smtp->datasend("Subject:$subject\n");
$smtp->datasend("\n");
foreach(@body){
$smtp->datasend("$_\n");
}
$smtp->datasend();
$smtp->quit;
}

print header;
my $return=param("return_addr");
if(!defined $return or ! $return){
print "You must supply an e-mail address<P>";
exit;
}
my $subject=param("subject");
if(!defined $return or !$return){
print "You must supply a subject<P>";
exit;
}
send_mail('webaster@myhost.com',
param($return),
param($subject),
param("body"));

print "Mail sent.";

Answer 1

安装个阿帕奇,然后设置一下阿帕奇的httped.conf文档(网上有很多)
把你的.pl文件放到阿帕奇的CGI目录里
你的路径为http://127.0.0.1/CGI-BIN/*.pl
可能CGI-BIN这层目录不需要的 因为我的阿帕奇里面设置了alias ...

Answer 2

很明显这跟程序没关系，你把程序贴出来干嘛，是你服务器配置的问题。你作了.pl文件的映射了吗？