小编AAL*_*AAL的帖子

在我看来可能是一切!

我基本上不知道自己在做什么.我之前从未写过.cgi文件,但我确实编写了基于几个教程的脚本...其中一个就是这个... http://www.yourhtmlsource.com/cgi/processingforms.html

我想要一个Perl脚本来处理一个html表单,收集用户的数据并发送到电子邮件,并在用户点击SUBMIT时返回感谢you.html文件.

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);

if ($ENV{'REQUEST_METHOD'} eq 'POST') {

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;

}

if( $FORM{magazine} ){
    $magazine_flag ="ON";
}else{
    $magazine_flag ="OFF";
}

if( $FORM{internet} ){
    $internet_flag ="ON";
}else{
    $internet_flag ="OFF";
}

if( $FORM{distributor} ){
    $distributor_flag ="ON";
}else{
    $distributor_flag ="OFF";
}

if( $FORM{yes1} ){
    $yes1_flag ="ON";
}else{
    $yes1_flag ="OFF";
}

if( $FORM{no1} ){ …