源码如下！是从一个IE网页提交的数据，执行此*.cgi程序处理，要求把接收到的数据写入一个新的文件，（该文件不在《/html/》、《/cgi-bin/》目录中）,请问我该如何处理，下面的源码有问题吗！我试过直接执行可以生成，但是通过ie执行好象加不进去





#!/usr/bin/perl
use CGI;
$q=new CGI;
###################/处理由web通get方式传来的的表单数据/################

###
$string=$ENV{'QUERY_STRING'};
@temp = split(/&/,$string);

@temp1 = split(/=/,@temp[0]); 

@temp2 = split(/=/,@temp[1]);

@temp3 = split(/=/,@temp[2]);

@temp4 = split(/=/,@temp[3]);

@temp5 = split(/=/,@temp[4]);

@temp6 = split(/=/,@temp[5]);

@temp7 = split(/=/,@temp[6]); 

@temp8 = split(/=/,@temp[7]);

@temp9 = split(/=/,@temp[8]);

@temp10 = split(/=/,@temp[9]);

@temp11 = split(/=/,@temp[10]);

############################


$xiang_temp = @temp1[1];

$text_domain_temp = @temp2[1];

$record_select_temp = @temp3[1];

$text_record_temp = @temp4[1];

$text_server_temp = @temp5[1];

$text_check_temp = @temp6[1];

$text_email_temp = @temp7[1];

$text_reflash_temp = @temp8[1];

$text_outtime_temp = @temp9[1];

$text_trytime_temp = @temp10[1];

$text_defactive_temp = @temp11[1];


#############调用ToChnString函数解码###############
$xiang = ToChnString($xiang_temp);

$domains = ToChnString($text_domain_temp);

$recordsel = ToChnString($record_select_temp);

$records = ToChnString($text_record_temp);

$servers = ToChnString($text_server_temp);

$emails = ToChnString($text_email_temp);

$checkbox = ToChnString($text_check_temp);

$reflash = ToChnString($text_reflash_temp);

$outtime = ToChnString($text_outtime_temp);

$trytime = ToChnString($text_trytime_temp);

defactive = ToChnString($text_defactive_temp);

###################/处理由web通get方式传来的的表单数据/################



########把数据写入文件(如文件不存在则新建)############
$vars="$TTL86400ntSOAtausu.com.troot@localhost.t{n";
$logfile="/var/www/cgi-bin/aaa.cgi";

open AAAFILE,">>$logfile";

print AAAFILE $vars;

close AAAFILE;

########################################################

########################################################

print $q->header;

print $q->start_html();

print "操作成功";

print $q->end_html;
######################################################


#############解码函数定义############
sub ToChnString
{   
my($i)=0;
   my($chnstring)="";
   my($code0)=0; my($code1)=0;
   my($string)=@_;
   for($i=0;$i

    

 

请教：用PERL如何替换文件中的特定的一行？

请教个关于perl的问题

PERL的问题！（急）可追加100分

perl 土问题

perl脚本传递参数的问题

关于perl的问题 我真的想不出是什么问题

perl/shell 字符问题

关于LFS中的Perl问题

bugzilla安装过程中的mod_perl安装问题

unix 下web应用程序调用 一个写数据库的perl脚本 的问题。

perl 双引号问题？

关于perl的一个问题

在shell中调用perl的返回值问题。

linux perl脚本文件问题（在线等待）

perl 数组访问问题

关于perl 的问题！！！！！（急）

关于c和perl的文件锁问题

重金求解，redhat7.2下安装apache1.3.27时提示bad interperter的问题，和perl有关，如何解决？

用perl匹配并替换文本中的字串问题