当前位置:编程学习 > CGI >>

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.";
答案:安装个阿帕奇,然后设置一下阿帕奇的httped.conf文档(网上有很多)
把你的.pl文件放到阿帕奇的CGI目录里
你的路径为http://127.0.0.1/CGI-BIN/*.pl
可能CGI-BIN这层目录不需要的 因为我的阿帕奇里面设置了alias ...
其他:很明显这跟程序没关系,你把程序贴出来干嘛,是你服务器配置的问题。你作了.pl文件的映射了吗? wee 

上一个:CGI程序不能执行
下一个:JSP,HTML/ASP/PHP/CGI用哪个格式好?

更多图片编程知识:
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,